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ABSTRACT 

Procedures  to  execute  specific  activities  are  usually 
communicated  in  writing  throughout  large  organizations.  This 
thesis  presents  a  prototype  example  of  interactive  software 
as  an  alternative  to  the  promulgation  of  written  instruc- 
tions. The  Naval  Postgraduate  School  supply  requisition 
generation  process  has  been  distilled  into  a  single  software 
package,  the  Supply  Requisition  Database  (SRdb),  which 
prepares  requisition  documents  and  maintains  a  local  data- 
base of  items  ordered.  Emphasis  is  placed  upon  ease  of  use 
and  labor  efficiency.  Although  limited  initial  testing  of 
the  software  is  reported,  SRdb  is  offered  primarily  as  a 
tool  for  further  research  of  the  concept. 


THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed 
in  this  research  may  not  have  been  exercised  for  all  cases 
of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  ensure  that  the  programs  are  free  of 
computational  and  logic  errors,  they  cannot  be  considered 
validated.  Any  application  of  these  programs  without  addi- 
tional verification  is  at  the  risk  of  the  user. 
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I.  INTRODUCTION 

A.   PURPOSE 

Each  day  military  commands  collectively  promulgate 
thousands  of  instructions,  notices,  and  orders  which  subor- 
dinates are  expected  to  read,  understand,  and  execute. 
Although  the  authors  of  these  written  guidelines  strive  for 
clarity,  the  onus  to  understand  them  is  placed  upon  the 
addressee.  With  the  proliferation  of  personal  computers  the 
potential  now  exists  to  achieve  new  dimensions  of  clarity 
and  ease  of  understanding  through  the  issuance  of  interac- 
tive software  vice  voluminous  written  instructions. 

Due  to  its  capability  to  present  a  series  of  screens  of 
information,  software  may  be  viewed  as  a  communication 
medium.  It  is  somewhat  unique  in  that  the  user  may  interact 
with  the  software,  for  example,  requesting  further  'help'  or 
clarification  of  particular  procedures.  The  software  also 
may  be  used  to  prepare  reports  by  querying  the  user  for 
inputs  according  to  a  specific  logic.  No  pretention  is  made 
that  software  is  the  appropriate  medium  for  the  promulgation 
of  all  instructions.  In  fact,  it  is  quite  probable  that  it 
is  cost  efficient  in  only  a  small  percentage  of  situations. 

The  purpose  of  this  paper  is  to  examine  and  propose  a 
software-oriented  alternative  to  the  current  manual, 
instruction-driven  supply  requisition  process  at  the  Naval 
Postgraduate  School  (NPS),  Monterey,  CA.  Although  the  model 
presented  addresses  specific  details  of  the  NPS  requisition 
transactions,  it  is  felt  that  the  general  concepts  could  be 
extrapolated  easily  to  other  locations  which  also  have 
significant  open  purchase  activity  and  a  multitude  of 
funding  sources. 
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B.  APPROACH 

The  current  NPS  requisition  process  was  studied  in 
detail  by  reviewing  the  NPS  Supply  Department  Customer 
Service  Manual  [ Ref .  1]  and  the  applicable  NPS  Comptroller 
instruction  [Ref.  2].  Several  modifications  to  these 
written  quidelines  were  discussed  at  a  two  hour  requisition 
training  seminar  presented  by  the  Supply  Department  for  NPS 
personnel  [Ref.  3].  Finally,  a  working  knowledge  of  the 
current  system  was  attained  through  the  interviewing  of 
several  persons  involved  in  various  stages  of  the  requisi- 
tion process  at  NPS.  In  addition  to  gaining  a  better 
understanding  of  the  precise  operation  of  the  current 
system,  suggestions  for  improvement  were  solicited. 

Thesis  research  visits  were  made  to  the  Fleet  Hospital 
Support  Office,  Alameda,  CA,  Naval  Supply  Center,  Oakland, 
CA,  and  the  Supply  Automation  Office  at  NAS  Miramar,  CA,  to 
review  general  supply  automation  efforts  throughout  the 
Navy. 

C.  ASSUMPTIONS  -AND  SCOPE 

The  primary  thrust  of  this  paper  is  to  present  an 
example  of  interactive  software  as  an  alternative  to  a 
written  instruction.  Although  cost  effectiveness  will  be 
briefly  examined  as  a  relevant  issue,  a  complete  cost/ 
benefit  analysis  is  considered  to  be  outside  the  scope  of 
this  thesis. 

A  requisition  may  be  viewed  as  a  compilation  of  data 
elements  such  as  nomenclature,  stock  number,  quantity,  ship- 
ping codes,  etc.  ,  which  pertain  to  the  item  being  ordered. 
During  the  course  of  research,  some  data  elements  required 
on  requisition  documents  appeared  to  be  a  duplication  of 
information,  and  other  codes  were  discovered  to  be  meaning- 
less in  the  NPS  environment.  Since  it  is  not  the  purpose  of 
this  thesis  to  present  an  analysis  of  information  and  codes 
required  on  each  requisition  document,  these  problems  will 
be  left  to  others. 


For  the  purposes  of  this  paper,  every  element  of  infor- 
mation and  code  which  is  required  by  applicable  instructions 
and  manuals  [ Ref s.  1/2]  are  assumed  to  be  necessary  and 
appropriate.  It  is  recognized  that  some  of  these  requisi- 
tion forms  are  in  DOD-wide  usage,  and  therefore,  they  may 
utilize  codes  which  perhaps  have  meanings  in  other  environ- 
ments. An  argument  may  easily  be  made  that  a  locally 
produced  requisition  form  would  be  more  responsive  to  the 
needs  of  NPS  supply  customers,  however,  this  is  also  felt  to 
be  an  issue  which  is  outside  the  realm  of  this  thesis. 

It  is  important  to  note  that  this  paper  focuses  upon  the 
accurate  generation  of  requisition  documents  via  a  session 
with  interactive  software,  as  opposed  to  reliance  solely 
upon  written  instructions.  There  is  no  intent  to  present  an 
analysis  of  the  entire  NPS  requisition  /  purchase  process. 
For  further  information  the  reader  is  referred  to  the  bibli- 
ography, which  cites  several  previous  theses  which  have 
fully  discussed  these  other  issues  concerning  the  design  and 
analysis  of  the  NPS  supply  system. 
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II.  BACKGROUND 

A.  NPS  REQUISITION  SYSTEM  CHARACTERISTICS 

During  FY  85 ,  the  NPS  Supply  Department  processed  over 
17,000  requisitions  with  a  total  value  in  excess  of 
$13,341,000.  Due  to  the  academic  nature  of  its  mission,  the 
Naval  Postgraduate  School  acquires  a  large  percentage  of  its 
material  via  open  purchase  as  opposed  to  reliance  upon  stan- 
dard government  stock  sources.  Less  than  15%  of  FY  85  NPS 
requisitions  were  filled  from  standard  stock,  resulting  in 
almost  15,000  open  purchase  actions  valued  at  $12,900,000 
[Ref.  4]. 

NPS  is  somewhat  unique  in  the  number  of  different 
funding  sources  available  for  locally  generated  requisi- 
tions. Aside  from  the  normal  departmental  Operating  Target 
(OPTAR)  funds  provided  in  the  NPS  Operations  and 
Maintenance,  Navy  (O&MN)  budget,  large  amounts  of 
Reimbursable  Funds  (RF)  (also  called  research  funds)  are 
provided  by  others  commands  which  are  sponsoring  research 
work  at  NPS.  This  wide  variety  of  funding  sources  will  be 
found  to  introduce  a  degree  of  complexity  in  accurate  gener- 
ation of  requisition  documents. 

The  current  NPS  Supply  requisition  process  appears  to  be 
a  manual  anachronism  in  the  midst  of  a  relatively  computer- 
ized environment.  At  present,  no  phase  of  the  requisition 
cycle  has  been  touched  by  automation.  This  chapter  will 
describe  the  present  procedures  for  generation  of  NPS  requi- 
sition documents. 

B.  REQUISITION  OVERVIEW 

Each  NPS  department  has  designated  one  or  more  personnel 
to  serve  as  the  focal  point  in  preparing  and  tracking  requi- 
sition documents.    For  academic  departments  this   person  is 
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usually  a  clerk/typist  serving  in  a  GS-3  to  GS-5  billet. 
Persons  desiring  to  order  materials  usually  notify  the 
department  clerk,  who  prepares  the  requisition  documents  and 
keeps  a  record  of  the  transaction.  The  form  of  the  initial 
request  to  the  department  clerk  varies  from  one  department 
to  the  next,  running  the  gamut  from  a  phone  call,  to  a  xerox 
copy  of  an  advertisement  with  items  circled,  to  a  type- 
written memorandum. 

The  department  requisition  clerk  prepares  the  documents 
in  accordance  with  the  applicable  local  instructions 
[ Ref s.  1,2].  After  the  documents  are  prepared,  the  clerk 
will  obtain  the  appropriate  signature  prior  to  routing  out 
of  the  department  for  further  action.   See  Figure  2. 1. 


CUSTOMER 


Item 
Specifications 


DEPT  CLERK 


-  Prepare  requisition  documents 

-  Get  documents  signed 

-  Record  transition 


Research  Funded  Requisitions 


RESEARCH  ADMIN. 
OFFICE 


-  Review  propriety  of  request 

-  Annotate  approval 

-  Record  accounting  data 


Requisitions  not  using 
Research  Funds  (RF) 


NPS  SUPPLY  DEPT 
Code  4221 


Figure  2.  1   Typical  Requisition  Flow 

If  the  requisition  is  to  be  funded  from  department  OPTAR 
funding,    the   department   chairman   or  his   designated 
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representative  will   sign  the  documents  before  they   are 
forwarded  to  supply.  If  the  requisition  is  to  be  funded  from 

Reimbursable  Funds  (RF),     the  documents  will  be  signed  by 

the  professor  controlling  the  specific  RF  account.  RF-funded 

requisitions    are   sent   to    supply   via   the  Research 

Administration  Office   which  screens   the  request  to  ensure 

that   the   funds  are   being   spent   in  accordance  with   any 
limitations  placed  by  the  sponsoring  command. 

C.   TYPES  OF  REQUISITIONS 

This  section  will  describe  the  different  types  of  requi- 
sitions and  the  associated  documents. 

1.   Ready  Supply  Requests 

To  expeditiously  satisfy  customer  requests,  the  most 
frequently  requested  consumable  materials  are  stocked 
locally  at  the  NPS  Ready  Supply  Store  (RSS).  Materials 
stocked  in  the  RSS  for  the  convenience  of  the  NPS  customer 
are  listed  in  the  NPS  RSS  Catalog  [ Ref .  5].  Customers  may 
obtain  items  from  the  RSS  by  forwarding  a  Material 
Requirements  Document  (Figure  2.2)  to  the  RSS.  RSS  personnel 
will  phone  the  exact  total  cost  of  the  desired  items  back  to 
the  department  requisitions  clerk,  who  subsequently  prepares 
a  'Money  Value  Only'  DD-1348  (Figure  2.3)  to  be  sent  to  the 
RSS. 

The  NPS  Office  Supply  Issueroom  (OSI)  is  a  subunit 
of  the  RSS,  where  frequently  used  office  materials,  such  as 
pens  and  folders,  are  available  in  limited  quantities  upon 
presentation  of  a  locally  produced  office  supply  request 
form,  Figure  2.  4. 

The  OSI  maintains  a  running  tally  of  the  value  of 
items  issued  and  'bills'  each  department  monthly.  A  depart- 
ment 'pays  its  bills'  through  issuance  of  a  'Money  Value 
Only'  DD-1348,  as  seen  in  Figure  2.3.  The  DD-1348  is  an 
accounting  document,   and  as  such,   it  must  be  signed  in  the 
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Figure   2. 3        DD-1348      for  Money  Value   Only 


OFFICE  SUPPLIES^  TURN-IN  OR   REQUEST 
II    NO    NFS    4400/ 1      8-691 


FROM: 

DATE 

22   JAN   86 

x 

SSUE 

Arirmn   Science   Dept,    Code    54,    ext   2472 

TURN-IN 

TO! 

Supply  Department ,    Office   Supply  Storeroom 

CREDIT    CUD  NO. 

ippnovco    9« 


□  *  TE   «£QUi«EO 


10. 

STOCK  NO.  ANO  DESCRIPTION 

U/    1 

QTY 

ACTION 

U/P 

COST 

1 

STAPLER                              7520-00-281-5395 

EA 

3 

2.10 

6.30 

2 

PAPER,    BOND                     7530-00-290-0617 

RM 

4 

2.60 

10.40 

'S3UED    ar 

D4TE 

RECEIVED    9V 

TOT  Ai_ 

16.70 

OFFICE  COPY 

Figure   2.  4        Office    Supply  Request   Form 

upper      right      corner     by  an      individual      designated     by     the 
department   as   authorized  to   obligate   funds   [ Ref .     1:    p.    4-6]  . 
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2.   Standard  Stock  Requests 

Many  commonly  used  items  have  been  purchased  in 
volume,  assigned  National  Stock  Numbers  (NSN),  and  stocked 
at  various  stockpoints  throughout  the  nation  by  the 
Department  of  Defense  (DOD)  or  the  General  Services 
Administration  (GSA).  All  standard  stock  items  are  requisi- 
tioned using  a  DD-1348,  Figure  2.5,  coded  in  accordance  with 
the  Military  Standard  Requisitioning  and  Issue  Procedure 
(MILSTRIP)  [Ref.  6:  pp.  1-62].  A  separate  DD-1348  must  be 
used  for  each  line  item  of  standard  stock. 
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Figure  2.5    DD-1348  Standard  Stock  Requisition 


3.   Open  Purchase 

Items  which  are  not  available  from  standard  stock 
may  be  purchased  directly  from  commercial  sources.  Although 
departments  are  issued  standard  stock  catalogs  annually,  it 
is  not  uncommon  for  items,  which  are  available  from  standard 
stock,  to  be  erroneously  requested  on  an  open  purchase 
requisition.  All  open  purchase  requisitions  are  screened  by 
the  NPS  Supply  Department  for  availability  in  standard 
stock.  If  the  same  or  'like'  item  is  found,  the  requisition 
is  returned  to  the  originator  with  a  memorandum  attached 
citing  the  apparent  standard  stock  substitution  nomenclature 
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and  NSN.  If  the  standard  stock  item  is  acceptable  to  the 
customer,  the  department  requisition  clerk  will  generate  a 
new  DD-1348  for  the  appropriate  standard  stock  item.  If  it 
is  felt  that  the  standard  stock  alternative  is  inadequate,  a 
justification  memorandum  to  the  NPS  Supply  Department  must 
accompany  the  return  of  the  original  requisition. 
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Figure  2. 6   DD-1348  Open  Purchase  Requisition  ( single  item) 

An  open  purchase  requisition  for  a  single  item  may 
be  made  using  a  DD-1348  as  seen  in  Figure  2. 6.  A  Standard 
Form  36  (SF-36)  is  required  to  be  completed  if  more  than  one 
item  is  requested,  or  if  the  item  nomenclature  and 
description  of  specifications  will  not  fit  in  blocks  8-22  on 
DD-1348  [Ref.  1:  p.  4-5].  An  SF-36  (Figure  2.7)  is  viewed 
as  a  continuation  of  the  DD-1348  (Figure  2.8)  in  these 
instances. 

It  is  important  to  note  that  each  DD-1348  or 
DD-1348/SF-36  combination  may  specify  only  one  vendor.  Items 
desired  from  different  vendors  require  separate  requisition 
documents. 

For  accounting  purposes,  items  which  are  classified 
under  different  elements  of  expense  must  not  be  combined  on 
a  single  requisition  [Ref.  2:  p.  3].  For  example,  an  order 
for  a  personal   computer  and  related  software,    even  from  a 
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Exception  to  SF  36 
Approved  by  NARS  9/76 


STANDARD  FORM  3S.  JULY  1986 

GENERAL  SERVICES  ADMINISTRATION 
PED   PROC.  REG   |4I  CFfll  T-ia  101 


CONTINUATION  SHEET 


FIEF    NO    OF  OOC.  BEING  CONT'D 

M62271/6030/5709 


RAGE 

1 


NAME  OF  OFFEROR  OR  CONTRACTOR 

GENERAL  DYNAMICS   3234  CONVAIR  AVE   SAN  DIEGO,  CA  92129 


SUPPLIES  /  SERVICES 


20Mbyte  Tape  Streamer  Model  ft  123456 
Version  9.3   Black  Finish 

50Mbyte  Hard  Disk  (IBM  PC  Compatible) 
110  volts  5"  X  9"  X  2" 

TOTAL 


EA 


EA 


275  .00 


500.00 


825.00 


1500.00 


2325  .00 


Figure  2. 7    SF-36  Open  Purchase  Continuation 
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Figure  2. 8   DD-1348  Open  Purchase  Requiring  an  SF-36 

single  vendor,  requires  at  least  two  requisitions  because 
the  expense  element  codes  for  software  and  hardware  are 
different  [  Ref .  2:  encl(3)  pp.  1-2]. 

a.  Alternative  Sources  Memorandum 

Recently  publicized  purchases  of  '$600  ashtrays' 
and  '$900  hammers'  have  focused  intense  congressional 
scrutiny  upon  DOD  procurement.  In  an  attempt  to  ensure 
efficient  use  of  tax  dollars  through  competitive  purchases, 
all  open  purchase  requisitions  with  a  total  value  exceeding 
$1,000  are  now  required  to  list  a  minimum  of  three  alterna- 
tive vendors  for  the  requested  materials.  The  alternative 
suppliers  may  be  shown  in  the  space  remaining  at  the  bottom 
of  an  SF-36,  or  a  separate  memorandum  may  be  attached  to  the 
requisition  [Ref.  3]. 

b.  Sole  Source  Justification  Memorandum 

An  exception  to  the  Alternative  Sources 
Memorandum  occurs  when  the  customer  is  able  to  document  the 
requirement  for  a  sole  source  procurement.  Contracting  offi- 
cers are  'bound  by  law  to  seek  competition'  unless  it  can  be 
demonstrated  that  valid  reasons  exist  which  preclude  compe- 
tition;  therefore,    requests  for   sole  source  procurement 
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actions  are  very  carefully  reviewed  [ Ref .  1:  p.  4-27]. 
Central  to  the  Sole  Source  Justification  is  a  description  of 
the  critical  features  which  limit  its  availability  to  a 
single  source,  as  well  as  a  certification  that  this  is  the 
only  product  or  service  which  will  adequately  meet  the 
intended  use  or  application. 
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III.  SRdb  SOFTWARE  DESCRIPTION 

A.  CONCEPT 

The  Supply  Requisition  Database  (SRdb)  software  was 
written  to  permit  the  generation  of  primary  requisition 
documents  through  an  interactive  computer  session.  The 
target  user,  a  department  requisition  clerk,  initiates  the 
order  process  by  answering  a  logical  series  of  plain 
language  queries.  Since  the  algorithms  for  placing  the 
appropriate  codes  in  the  proper  boxes  on  the  documents  are 
written  into  the  software,  the  user  is  freed  from  memorizing 
or  copying  cryptic  codes.  After  all  required  questions  have 
been  answered,  the  user  is  prompted  to  load  the  proper  blank 
document  into  the  printer.  Precise  document  formatting  is 
provided  in  the  SRdb  software,  eliminating  all  user  format 
errors. 

The  SRdb  program  is  designed  to  extract  key  elements 
from  each  document  and  maintain  a  requisition  database  which 
can  be  used  at  the  department  level  in  lieu  of  the  current 
ad  hoc  recordkeeping.  SRdb  files  are  written  to  the  selected 
disk  drive  as  per  the  SRdb  configuration  file.  The  configu- 
ration file  is  used  to  maximize  the  user  friendly  nature  of 
the  software  and  free  the  user  from  repetitive  typing  of 
elements  which  remain  constant  on  each  requisition,  such  as 
department  name,  phone,  building,  etc.  The  beta  ( initial 
test)  copy  of  the  SRdb  package  was  preconf igured  for  use  in 
the  NPS  Administrative  Sciences  department. 

B.  SYSTEM  REQUIREMENTS 

SRdb  is  designed  to  run  on   an  IBM  or  IBM  compatible  CPU 
with   a  minimum  of  256K  of  memory   and  2   disk  drives. 
Although   it  will   operate  small   databases   on  floppy  disk 
drives,   it  is  highly  recommended  that   a  hard  disk  drive  be 
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utilized  if  any  of  the  following  requirements   are  exceeded 
on  an  FY  basis: 

•  50  accounts, 

•  150  suppliers, 

•  1500  requisitions,  or 

•  2000  line  items. 

Either  a  color  or  a  monochrome  monitor  is  acceptable.  A 
friction  feed  printer  is  essential  for  printing  of  forms, 
however,  a  tractor  feed  printer  is  adequate  for  printing  out 
reports  and  memorandums. 

Since  SRdb  is  essentially  a  dBASE  III  application 
program,  a  copy  of  dBASE  III  is  required  for  program  execu- 
tion. The  beta  copy  of  SRdb  is  configured  such  that  dBASE 
III  and  the  SRdb  program  modules  are  resident  on  a  single 
disk  to  be  maintained  in  the  'A!  disk  drive.  The  database 
and  index  files  are  located  on  the  'B'  drive.  These  drive 
assignments  are  optional  and  may  easily  be  changed  by  modi- 
fying the  configuration  file.  For  further  details 
concerning  system  sizing  requirements,  the  reader  is 
referred  to  Appendix  C,  'Database  Structure'. 

C.   FEATURES 

The  general  features  of  the  SRdb  software  are  described 
below.  The  reader  is  referred  to  the  SRdb  User's  Manual  in 
Appendix  B  for  detailed  operational  descriptions. 

1.   Document  Generation 

The  two  primary  requisition  documents,  DD-1348  and 
SF-36,  are  readily  generated  by  SRdb.  SRdb  handles  complex 
code  assignment  in  document  boilerplate  according  to  the 
type  of  requisition.  Julian  dates  are  automatically  calcu- 
lated, including  leap  year  corrections.  It  also  calculates 
the  total  value  of  the  requisition  required  on  the  SF-36  and 
in  block  'U'  of  the  DD-1348  [ Ref .  1:  pp.  4-9  -  4-15]. 


22 


When  ready  to  print,  the  program  pauses  for  the  user 
to  indicate  that  the  proper  form  has  been  loaded  into  the 
printer.  After  the  document  has  been  printed,  SRdb  permits 
the  user  to  immediately  reprint  it  in  case  the  printer  was 
misloaded,  or  there  were  any  mechanical  malfunctions. 
Although  both  forms  are  available  on  continuous-feed  stock, 
it  is  believed  that  it  generally  would  be  impractical  to  use 
such  forms  due  to  the  variety  of  requisition  types.  For 
example,  each  SF-36  would  necessarily  be  followed  by  a 
DD-1348  as  described  in  Chapter  Two,  therefore,  a  friction 
feed  printer  is  viewed  as  most  practical.'  A  single 
SRdb-generated  DD-1348  or  SF-36  document  would  be  indistin- 
guishable from  the  same  document  prepared  by  a  clerk- typist 
on  an  electric  typewriter,  except  perhaps  by  the  lack  of 
overstrike  errors. 

2.   Accounts  Database 

SRdb  allows  the  clerk  to  select  the  appropriate 
account  from  an  on-line  listing,  eliminating  the  repetitive 
entry  of  account  information.  Due  to  the  proliferation  of  RF 
projects  throughout  NPS,  it  is  not  uncommon  for  a  single 
department  to  have  access  to  30  or  more  different  funding 
accounts.  SRdb  records  the  following  information  for  each 
account: 

•  Account  name, 

•  Account  number  assigned  by  NPS  Comptroller, 

•  Mail  code  of  responsible  individual, 

•  Type  of  funds  ( RF  or  not), 

•  Document  serial  number  range  assigned, 

•  Last  document  serial  number  used. 

Professors  who  are  responsible  for  multiple  RF 
accounts  have  a  separate  listing  for  each  account.  A  menu- 
driven  option  permits  the  user  to  easily  add  additional 
accounts  upon  receipt  of  accounting  data  from  the  NPS 
Comptroller. 
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Tracking  document  serial  numbers  for  each  account 
permits  the  automatic  generation  of  the  14-character 
document  numbers  (columns  30-43  of  DD-1348),  which  are  a 
concatenation  of  the  Unit  Identification  Code  (UIC),  Julian 
date,  and  the  appropriate  serial  number.  In  SRdb,  the  entire 
process  is  now  transparent  to  the  user  instead  of  a  being  a 
drill  in  precision  typing. 

3.  Supplier  Database 

A  database  file  of  suppliers  is  maintained  on-line 
to  assist  the  user  in  completion  of  open  purchase  requisi- 
tions. The  vendor's  name,  address,  and  phone  number  are 
filed  for  easy  future  reference.  SRdb  allows  the  clerk  to 
select  the  appropriate  supplier  from  an  on-line  listing, 
eliminating  the  repetitive  entry  of  vendor  information.  If 
an  order  is  made  from  a  supplier  not  currently  in  the  file, 
he  is  automatically  added  to  the  database  for  future  refer- 
ence. The  supplier  database  also  serves  as  an  excellent 
source  of  alternative  vendors,  required  in  orders  exceeding 
$1,000  value. 

4.  Requisition  Database 

A  file  is  maintained  containing  the  following  items 
of  information  about  each  requisition: 

•  Requisition  number, 

•  Priority  code  of  requisition, 

•  Supplier, 

•  Date  of  requisition. 

The  requisition  database  is  indexed  by  requisition 
number  and   account  number   for  ease   of  report   generation. 
Each  requisition  is  represented  by   a  separate  entry  in  this 
file. 

5.  Item  Database 

In  consonance  with  a  database  of  Third  Normal  Form, 
as  described  by  Kent  [ Ref .  7],   a  separate  database  contains 
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the  items  requisitioned.  The  database  contains  the  following 
entries  for  each  item: 

Description  of  item  (up  to  44  characters), 

Unit  of  issue, 

Quantity  ordered, 

Unit  price, 

Requisition  number, 

Purchase  order  number, 

Receipt  status. 

The  item  database  is  indexed  by  both  the  requisition 
number  and  the  purchase  order  number  to  facilitate  item 
tracking  and  report  production.  This  database  also  permits 
the  tracking  of  which  items  have  not  been  received.  The 
original  unit  price  may  later  be  altered  to  accommodate 
price  changes,  which  are  a  common  occurrence. 

6.   Report  Generation 

A  primary  strength  of  SRdb  is  the  ability  to  easily 
generate  reports  from  the  various  databases.  The  user  is 
given  the  option  of  displaying  each  report  on  the  screen  or 
dumping  it  to  a  printer.  Although  there  is  a  virtually 
unlimited  number  reports  and  formats  which  could  be 
produced,  the  beta  version  of  SRdb  provides  the  following 
two  basic  types  of  reports. 

a.   Requisition  Summary 

The  user  may  select  from  these  three  requisition 
display  options: 

1)  A  single  specific  requisition. 

2)  All  requisitions  charged  to  a  specific  account. 

3)  All  requisitions  charged  to  a  specific  account  between 
two  dates. 

As  may  be  seen  in   Figure  3. 1,    only  essential 

data  elements  are  presented  in  requisition  summaries.   There 

is   no  attempt   to  display   an   exact  copy   of  the   original 

requisition. 
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Account  Name:  LAPATRA                  Requisition  #: 
Account  #:  RCAZ2                       Priority:  C 
To:  ASHTON-TATE 

10150  W.  Jefferson 
Culver  City,  CA  90230 

#         Item                      Unit  Cost    Quant 

:  53337003 
Rcvd    P.O.  # 

1  dBASE  III                        $   399.00 

2  Quick  Code  Mark  IV              $   345.00 

2 

1 

F 

F    87654321 

Total  items: 


Total  value:  $     1,143.00 


Figure  3. 1    Single  Requisition  Summary 


b.   Summary  of  Items  Not  Received 

SRdb  currently  permits  two  types  of  displays  of 
items  ordered  but  not  yet  received.  The  user  may  elect  to 
display  all  items  outstanding  for  the  entire  department 
(Figure  3.2)  or  to  restrict  the  list  to  items  outstanding 
from  a  specific  account  (Figure  3.3).  Both  types  of  listings 
will  show  at  the  bottom  the  total  number  and  value  of  items 
not  yet  received. 

AS  Dept 
ITEMS  NOT  RECEIVED  AS  OF   12/11/85 


Item 


Req  # 


P.O.  #   Quant 


1  LOTUS  123      34LP45654323 

2  Pedometer  (model  158) 

3  Nikon  35ram  SLR  Camera  fl.4 

4  Calculator    34543LP09867 

5  DisplayComm  Software 

6  IBM  VM-370  Oper.  Handbook 

7  dBASE  III 

8  Quick  Code  Mark  IV 

9  Amdek  Color  Monitor  13' 

10  9  Meg  Buffer  Board 

11  Calender  86    78756GG32234 

12  Desk  Pad      66543FU45435 

13  Symphony  Clone  Vers  #3 

14  Sidekick  Software 

15  IBM  AT  Personal  Comp. 

16  Y- 19  Communications  Accessory  Pack 


53156504 

1 

53227676 

2 

53227676 

53403454 

1 

53306005 

1 

53336505 

54129990 

1 

53336505 

1 

53337003 

2 

53337003 

1 

53337678 

2 

53365707 

2 

53367005 

3 

53367702 

1 

53385708 

„ 

3 

53387680 

100 

53387703 

1 

53415709 

1 

Total  items: 


182 


Total  value:  $    64,656.62 


Figure  3.2   Department  Listing  of  Items  Not  Received 

The  potential  exists  to  restrict  the  listings  to 
requisitions  generated  within  a  specific  range  of  dates. 
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# 


For  Account  #:  RCAZ2 
ITEMS  NOT  RECEIVED  AS  OF   01/23/86 
Item  Req  # 


P.O.  #    Quant 


1  dBASE  III 

2  Quick  Code  Mark  IV 

3  Calender  86    78756GG32234 


53337003 
53337003 
53367005 


Total  items:    6  Total  value:  $     1,151.61 

Figure  3.3   Account  Listing  of  Items  Not  Received 

7.   Alternative  Sources  Memorandum 

As  described  in  Chapter  Two,  a  memorandum  listing 
three  alternative  suppliers  must  accompany  all  open  purchase 
requisitions  exceeding  $1,000  in  value.  SRdb  permits  the 
user  to  page  through  the  on-line  list  of  available 
suppliers,  selecting  the  desired  ones.  The  user  is  then 
prompted  for  two  departmental  points  of  contact  for  the 
requisition.  The  resulting  memorandum  (Figure  3.4)  is 
produced  without  further  user  input. 
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From:   AS   Department  01/24/86 

To:  NPS  Supply 

Subj :  Additional  sources  for  requisition  #  60243397 

1.   Due  to  the  high  value  of  subject  requisition,  the  following 
multiple  supply  sources  are  submitted: 

Monterey  Bay  Computerworks   Phone:  408  889-3177 

1760  Fremont  Blvd 

Seaside  CA        93955 


IBM  Government  Products      Phone:  518  864-2169 

321  Cypress  Lane 

Oakmont  NM        43563 


Trafalgar  Systems  Phone:  808  549-2843 

606  Alamoana  Blvd 

Honolulu,          HI  96867 

2.   Departmental  points  of  contact  for  this  request  are: 

Greta  Jones  2472 

Bette  Midler  3242 

Figure  3. 4   Alternative  Sources  Memorandum 
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IV.  INITIAL  SRdb  PROTOTYPE  FEEDBACK 

This  chapter  will  present  a  brief  overview  of  the 
lessons  learned  from  the  limited  trial  operations  of  the 
beta  copy  of  SRdb  in  the  NPS  Administrative  Sciences 
Department.  No  pretention  is  made  that  these  findings 
constitute  a  formal  cost/benefit  analysis  of  the  concept, 
however,  it  is  believed  that  they  may  serve  a  springboard 
for  further  research  in  the  area.  Feedback  was  obtained  by 
direct  observation  of  the  requisition  clerk  users  and  post- 
use  interviews. 

A.  GENERAL 

The  first  trial  of  SRdb  in  the  AS  Department  was 
conducted  using  a  newly  hired  clerk  who  was  unfamiliar  with 
both  the  requisition  process  and  personal  computers.  Her 
experience  highlighted  several  procedural  weaknesses  in  the 
software  which  were  immediately  corrected  prior  to  further 
use. 

Users  with  all  levels  of  experience  in  the  requisition 
arena  appeared  generally  favorable  toward  the  SRdb  concept. 
The  best  reception  was  from  those  with  0  to  5  years  of 
requisition  experience.  Although  the  user's  enthusiasm  for 
the  SRdb  concept  appeared  genuine,  it  is  recognized  that 
their  knowledge  of  the  presence  of  the  software's  author  may 
have  somewhat  colored  their  reactions.  All  said  that  it  was 
superior  to  the  current  system  of  learning,  which  consists 
primarily  of  literally  copying  previous  requisitions, 
substituting  the  name,  number,  and  price  of  the  new  item  to 
be  ordered. 

B.  REQUISITION  CODES 

The  primary  problem  with  the  verbatim  copying  of 
previous  requisition  stubs  is   the  inadvertent  transcription 
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of  inappropriate  codes.  Users  have  always  found  it  easier  to 
copy  a  sample,  rather  than  research  and  understand  the 
actual  meanings  of  the  codes.  For  example,  after  the 
issuance  of  the  current  NPS  Customer  Service  Manual,  the 
Supply  Department  noticed  that  the  expense  code  'T  2D'  was 
being  placed  in  block  '0'  of  virtually  all  DD-1348's.  The 
cause  was  traced  to  the  fact  that  all  sample  DD-1348's  shown 
in  the  new  manual  used  the  'T  2D'  code  as  an  example 
[ Ref .  1:  pp.  4-10  -  4-14].  Most  requisition  clerks  were 
found  to  be  blindly  copying  it,  not  really  understanding 
why,  but  thinking  that  it  should  work  [ Ref.  8] . 

A  valid  argument  may  be  made  that  it  is  unnecessary  for 
clerks  to  understand  the  meaning  of  every  single  code  on 
requisition  documents.  Indeed,  six  of  the  22  codes  found  on 
a  DD-1348  will  never  change  for  an  NPS  customer,  therefore, 
it  is  acceptable  for  clerks  to  routinely  copy  those  items. 
However,  when  a  code  is  variable,  under  the  current  system 
the  clerk  should  understand  its  significance. 

Due  to  the  internalization  of  code  algorithms  within  the 
SRdb  software,  it  was  most  favorably  received  by  inexperi- 
enced personnel  who  had  not  yet  learned  the  details  of  the 
requisition  coding  process.  SRdb  generates  the  appropriate 
codes  based  upon  user  response  to  plain  language  queries, 
thereby  relieving  the  user  from  memory  work  or  copying 
exercises. 

C.   DOCUMENT  PRINTING 

The  actual  printing  of  requisition  documents  by  SRdb  was 
initially  viewed  by  all  users  with  concern.  Due  to  its  small 
size,  the  DD-1348  requires  precise  character  placement,  and 
no  one  was  comfortable  with  alignment  of  the  forms  in  the 
printer.  It  is  a  process  which  one  learns  through  trial  and 
error.  Since  SRdb  permits  an  unlimited  number  of  immediate 
reprinting  attempts,  the  skill  is  rather  easily  acquired.  No 
one  required  more  than  four  trials  to  print  his  or  her  first 
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requisition.   A  rapid  learning  curve  for  subsequent  uses  was 
discovered  for  nearly  all  users. 

D.   DATABASE  USAGE 

The  notion  of  reliance  upon  an  electronic  database 
rather  than  the  current  '3-ring  binder'  system  produced 
surprisingly  mixed  reviews.  It  was  generally  felt  that 
unless  the  SRdb  system  was  already  running  at  the  time  a 
single  requisition  needed  to  be  reviewed,  it  might  be  easier 
and  faster  to  locate  it  in  the  current  binder  system.  All 
agreed  that  SRdb  was  superior  in  the  generation  of  summary 
reports  of  items  not  yet  received,  however,  this  was  not 
viewed  as  a  feature  which  would  be  in  frequent  demand  in  the 
AS  Department.  Everyone  liked  the  concept  of  maintaining 
on-line  files  of  suppliers  and  account  data  to  avoid  typing 
of  redundant  information  on  multiple  requisitions. 

SRdb  was  judged  by  some  users  to  be  weak  in  that  the 
beta  version  requires  all  requisitions  for  a  particular 
account  to  be  generated  via  SRdb.  In  other  words,  it  is 
difficult  to  'juggle'  the  document  serial  numbers  if  a 
particular  requisition  is  manually  produced  on  a  typewriter. 
This  weakness  could  be  overcome  in  two  ways.  An  additional 
module  could  be  created  allowing  the  user  to  change  the 
serial  number  of  the  next  document,  however,  this  has 
serious  implications  in  terms  of  the  ultimate  integrity  of 
the  database.  Alternatively,  a  department  policy  could  be 
adopted  requiring  all  requisitions  to  be  generated  by  SRdb, 
thereby  eliminating  the  possibility  of  conflicting  manually 
generated  document  serial  numbers. 


31 


V.  IMPLEMENTATION  CONSIDERATIONS 

A.   BENEFITS 

In  the  case  of  SRdb,  the  following  potential  benefits 
may  be  derived  from  the  issuance  of  interactive  software 
instead  of  written  instructions  and  manuals: 

1.  Requisitions  may  be  generated  more  quickly  and  easily, 
requiring  less  effort  and  perhaps  permitting  a  reduc- 
tion in  user  labor  expense. 

2.  The  time  required  to  train  users  to  produce  requisi- 
tion documents  may  be  significantly  reduced. 

3.  SRdb  permits  the  automatic  generation  of  various 
department  level  requisition  summary  reports  which  may 
be  of  value  to  management,  however  are  not  now 
produced  due  to  their  labor  intensity  in  a  manual 
system. 

4.  A  consistently  higher  quality  of  requisition  document 
may  assist  the  NPS  Supply  Department  in  providing 
better  response  to  customers.  Many  common  requisition 
coding  and  procedural  errors  would  be  eliminated, 
thereby,  reducing  the  number  of  documents  returned  to 
users  for  correction. 

5.  SRdb's  automatic  generation  of  requisitions  through  a 
series  of  progressive  screens  may  eliminate  many  of 
the  user's  telephone  queries  concerning  procedural 
matters  to  the  NPS  Supply  Department  personnel,  saving 
time  for  both. 

Since  only  the  last  two  of  the  five  potential  benefits 
would  be  enjoyed  by  the  NPS  Supply  Department,  it  is  legiti- 
mate to  question  whether  it  would  be  sufficiently  in  their 
interest  to  sponsor  the  implementation  of  an  SRdb  project. 
Although  a  majority  of  the  benefits  will  be  realized  by 
other  NPS  departments,  the  bulk  on  the  development  and  main- 
tenance expenses  probably  would  fall  upon  the  Supply 
Department.  This  would  call  for  a  change  in  the  typical 
institutional  inertia,  deeply  entrenched  in  division  of 
labor  and  turf  considerations,  which  notes  that  'we  will 
tell  them  how  to  write  a  requisition,  and  we  will  process 
their  finished  document,  but  we  are  not  going  to  write  it 
for  them. '  In  other  words,  despite  the  net  potential  benefit 
to  the   command  as   a  whole,    it  would  be  natural   for  the 
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Supply  Department  to  continue  to  publish  written  instruc- 
tions, and  let  the  customers  in  the  other  departments  worry 
about  reading,  understanding,  and  executing  them.  Facing 
such  natural  barriers,  if  the  Supply  Department  does  not 
view  benefits  4  and  5  as  sufficient  to  warrant  the  expense 
from  their  viewpoint,  it  is  probable  that  the  concept  repre- 
sented by  SRdb  will  require  sponsorship  from  someone  at  a 
sufficiently  high  echelon  within  the  command  to  be  concerned 
with  the  overall  common  benefit. 

B.   COSTS 

The  current  beta  copy  of  SRdb  required  450  hours  of 
programming  efforts  by  a  relatively  novice  programmer.  After 
software  development,  the  maintenance  phase  continues  to 
represent  a  substantial  investment,  frequently  exceeding  50% 
of  the  total  cost  over  the  program's  life-cycle  [ Ref .  9]. 
As  requisition  procedures  are  modified  in  the  future,  new 
versions  of  SRdb  will  require  code  alterations.  SRdb  may 
offer  an  advantage  in  that  many  modifications  could  remain 
transparent  to  the  user,  however,  the  costs  of  program 
changes  must  still  be  paid,  probably  by  the  originator.  The 
concept  would  be  for  new  versions  of  floppy  diskettes  to  be 
issued  in  lieu  of  the  promulgation  of  change  notices  to 
written  instructions. 

The  disparity  between  media  costs  (diskette  versus  paper 
and  ink)  may  not  be  as  great  as  one  might  imagine.  Now  that 
diskettes  may  be  procured  in  bulk  for  less  than  $1. 00  per 
copy,  the  media  costs  are  comparable  and  are  considered  to 
be  a  primary  consideration. 

Viewed  from  a  system  perspective,  SRdb  requires  the  use 
of  substantial  assets  beyond  the  cost  of  the  SRdb  software. 
Command-wide  implementation  of  SRdb  would  of  necessity  force 
a  review  of  the  availability  and  utilization  levels  of 
personal  computers  throughout  the  command.  NPS  is  somewhat 
unique  in  that   the  proliferation  of  personal   computers  has 
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already  enabled  access  to  them  in  every  department,  however, 
it  would  certainly  be  a  major  consideration  in  a  more 
diverse  environment. 

C.   SRdb  SCOPE 

It  should  be  recognized  that  SRdb  extends  well  beyond 
the  bounds  required  to  provide  a  software  implementation  of 
the  requisition  process  as  currently  described  in  the  appro- 
priate written  references  [ Ref s.  1,2,6].  The  incorporation 
of  a  database  capability  in  terms  of  a  formal  record  keeping 
structure  exceeds  actions  currently  directed.  The  database 
features  were  included  as  a  result  of  a  survey  of  the  record 
procedures  of  various  departments. 

One  may  question  the  wisdom  of  stipulating  the  form  of 
department  records  when  there  has  been  no  guidance  previ- 
ously given  in  this  area.  While  no  advantage  has  been 
conclusively  proven  supporting  a  requisition  record  system 
that  is  uniform  command-wide,  there  is  an  appealing  logic  to 
having  one  group  create  a  system  which  is  automatically 
updated  at  the  time  of  requisition  generation  with  no  addi- 
tional effort  by  the  user.  This  is  as  opposed  to  the  laisse 
faire  process  of  each  department  reinventing  the  'record 
wheel'  separately.  Certainly  a  department  could  use  SRdb  for 
requisition  preparation,  choosing  to  ignore  the 
SRdb-produced  records,  and  maintaining  its  manual  binder 
file  system  instead.  In  all  likelihood,  if  a  descendent  of 
SRdb  is  ever  formally  implemented,  the  manual  records  will 
continue  to  be  kept  in  parallel  with  SRdb  until  user  confi- 
dence is  fully  gained. 
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VI.  SUMMARY  AND  RECOMMENDAT I ONS 

SRdb  is  presented  as  an  example  of  interactive  computer 
software  as  an  alternative  to  written  instructions.  The 
concept,  as  embodied  in  the  SRdb  prototype,  has  been  infor- 
mally tested  and  successfully  demonstrated  to  work  in  a 
closely  controlled  environment.  Despite  the  appearance  of 
high  potential  and  the  numerous  common  sense  arguments  which 
may  be  advanced  in  favor  of  software  over  written  instruc- 
tions, it  is  inappropriate  to  conclusively  state  that  SRdb 
offers  proof  of  cost  efficiency  or  effectiveness  of  the 
concept.  SRdb  is  offered  as  a  tool  for  further  research  and 
analysis  in  this  arena. 

A.   FUTURE  ADAPTATIONS  OF  SRdb 

SRdb  may  be  viewed  as  an  attempt  to  improve  the  human 
interface  with  the  NPS  supply  requisition  process  without 
modifying  the  basic  system.  Although  document  generation  is 
now  automated  by  SRdb,  the  physical  transmission  of  requisi- 
tion data  on  paper  stubs  remains  far  less  efficient  and 
somewhat  archaic  when  compared  to  other  procedures  which  are 
readily  available  today.  For  example,  an  SRdb-like  interface 
could  easily  electronically  send  the  requisition  to  a  host 
computer  in  the  Supply  Department,  rather  than  produce  paper 
stock  which  is  manually  routed.  Supply  procurement  personnel 
could  receive,  review,  and  process  requisitions  on  their 
terminals,  eliminating  enormous  amounts  of  duplication  in 
typing  efforts.  A  'read  only'  requisition  supply  status 
database  could  also  be  maintained  on  the  NPS  mainframe, 
accessible  by  modem  or  3278  terminal  from  every  department, 
eliminating  substantial  hours  in  answering  routine  status 
check  phone  calls. 
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Although  current  supply  automation  experts  believe  that 
the  Navy  is  not  yet  ready  for  completely  'signatureless' 
electronic  requisitions  from  the  customer  level,  as  a 
compromise,  the  system  could  permit  automatic  electronic 
transmission  and  processing  of  all  requisition  data  elements 
to  be  followed  by  a  simple  signed  memorandum  citing  each 
requisition  [ Ref s.  10,11]. 

Organizations  are  just  beginning  to  scratch  the  surface 
in  realizing  the  potential  of  personal  computers  when  teamed 
with  the  appropriate  software.  SRdb  is  a  minor  contribution 
to  this  abrasion  process. 
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APPENDIX  A 
ABBREVIATIONS  AND  ACRONYMS 


AS  Adminstrative  Sciences 

Beta  Initial  Test  Copy  of  Software 

Char  Character 

DBF  Database  File 

DOD  Department  of  Defense 

FY  Fiscal  Year 

GSA  General  Services  Administration 

MILSTRIP   Military  Standard  Requisition  and  Issue  Procedure 

NDX  Index  File 

NPS  Naval  Postgraduate  School 

NSC  Naval  Supply  Center 

NSN  National  Stock  Number 

0  <&  MN  Operations  and  Maintenance,  Navy 

OPN  Other  Procurement,  Navy 

OPTAR  Operating  Target 

OSI  Office  Supply  Issueroom 

RF  Reimbursable  Funds 

RSS  Ready  Supply  Store 

SRdb  Supply  Requisition  Database 

UIC  Unit  Identification  Code 
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I  .  JO  THE  NEW  USER 

The  Supply  Requisition  Database  (SRdb)  program  is 
designed  to  be  easily  used  by  a  person  with  very  little 
knowledge  of  the  NPS  Supply  system.  The  menu-driven  SRdb 
approach  is  best  learned  through  experience.  The  purpose  of 
this  User's  Manual  is  to  serve  as  a  reference  guide  if  more 
details  about  a  particular  process  are  required. 

Assuming  that  your  copy  of  SRdb  has  been  configured  for 
your  department*  there  is  no  need  to  read  further.  Simply 
follow  your  department's  instruction  for  disk  placement  and 
start  up  SRdb.  It  is  recommended  that  new  users  use  a  test 
database  diskette  for  the  first  session,  so  that  practice 
requisitions  and  reports  may  be  generated  with  no  penalties 
for  mistakes.  Enjoy.... 
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II.  START  UP  PROCEDURES 


WELCOME  TO  THE  NPS  SUPPLY  REQUISITION  DATABASE 

This  program  is  designed  to  originate  requisition 
documents  (DD-1348s  and  SF-36s),  as  well  as  maintain 
a  database  of  requisition  status  for  a  particular 
department.  The  system  is  designed  for  use  by  any 
personnel  who  are  familiar  with  Naval  Supply 
terminology,  however,  a  detailed  understanding 
of  the  decision  matrix  used  in  the  generation  of 
requisition  documents  is  unnecessary. 


WARNING  -   If  the  user  fails  to  adhere  to  any  warnings 
presented  by  the  program,   he  does  so  at 
the  risk  of  data  loss. 

Disks  should  NEVER  be  removed  from  the 
drives  until  the  program  has  been  exited. 


Screen  2.1 


Welcome 


The  SRdb  program  is  presented  through  a  series  of  menus 
which  are  felt  to  be  self-explanatory.  This  user's  guide 
will  present  copies  of  actual  screen  displays.  For  example, 
Screen  2.1  is  the  first  seen  when  the  SRdb  program  is 
started.  The  space  provided  for  user  inputs  would  be  seen 
as   a  cursor   on  the   screen.    In  example   screens  in   this 

manual,   the  cursor  will  be   represented  by  an  underline  . 

If  the  screen  is  demonstrating  an  example  of  the  choice  made 
by  a  user,  it  will  show  the  selection  made  as  an  underline, 
e.g.    Y   would  represent  a  user's  input  of  'Y'. 

If  this  is  the  first  time  the  program  is  being  run  in 
your  department,  it  should  be  configured  by  someone  familiar 
with  dBASE  III  and  the  Program  Maintenance  Manual. 


Turn  on  the  computer  &  boot  up  DOS. 
how  to  do  this,  get  someone  to  do  it 
your  computer  instruction  manual. 


If  you  don  '  t  know 
for  you ,   or  read 


2.  Assuming  the  program  is  configured  for  use  in  your 
department,  load  the  program  in  accordance  with  the 
department's  instructions.  If  none  exist,  then  the 
program  disk  should  be  placed  in  the  'A'  drive  and  the 
database  disk  placed  in  the  'B*  drive. 

3.  Type  'ORDER*. 

4.  Follow  instructions  to  'Press  a  key  to  continue'  until 
you  see  the  Screen  2.2 
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LOAD  DISK  DRIVES 

Database  Disk  Location 
Suppliers:  'B'  Drive 
Accounts:     'B*  Drive 


Screen  2 . 2 


Load  Disk  Drives 


Ensure  that  the  disk  drives  are  properly   loaded  before 

proceeding!   If  you  have  loaded  the  disks  in  locations  other 

than  the  locations  now  on  the  screen*   this  is   the  time  to 
change  t hem . 
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III.  CONFIGURATION 


CONFIGURATION 


This  program  has  been  preconf igured  for  your  use 
and  should  not  require  reconfiguration  unless 
transported  to  another  system  or  department. 

WARNING  -  Configuration  changes  should  only  be 

made  by  personnel  familiar  with  dBASE  III. 


Change  Configuration  (Y/N)?   


Screen  3 .  1 


Configuration  Banner 


Normally*  the  proper  response  to  Screen  3.1  should  be 
'N1.  The  beta  copy  of  SRdb  has  been  preconf igured  for  the 
NPS  Administrative  Sciences  Department.  If  you  respond  with 
a  'Y'  to  Screen  3.1,  you  will  be  given  the  opportunity  to 
modify  the  default  values  shown  on  Screen  3.2.  This  process 
should  be  necessary  only  once  per  department. 
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This  program  is  configured  as  follows: 
Department:   AS 
Bldg:   330 
Room:   230 
Telephone:   X2472 


Database  disk  locations: 

Suppliers 


•B' 
•B' 


drive 
drive 


Accounts : 
Color  Monitor  (T/F):  T 
Is  this  the  correct  configuration  (Y/N)?  


Screen  3.2    Configuration  Modification 

Responding   to  Screen   3.2   with  a   *Y'   will  cause   the 
displayed  configuration  to  be  saved  to  the  program  disk. 
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IV.  DATE  CONFIRMATION 


Since   the 
correctly  set, 
desired  date  . 
tion  documents 
ensure  that  it 


computer's  system  date  may  not  have  been 
the  opportunity  is  now  presented  to  enter  the 
This  date  will  be  used  in  dating  all  requisi- 
and  reports,  therefore,  it  is  important  to 
is  correct. 


CONFIRM  TODAY'S  DATE 
12/11/85 
(Y/N)? 


Screen  4 . 1 


Confirm  date 


If  the 
If  you  enter   '  N  , 
date  as  you  desire. 


date 
i 


shown  in  Screen  4.1 
Screen  4.2  will 


is  correct,    enter 
allow  you   to  change 


1  Y'  . 

the 


Note  - 


ENTER  TODAY'S  DATE 

_/ /_ 

MM/DD/YR 


Leading  zeros  are  required 
for  single  digit  values. 


Screen  4  .  2 


Enter  Date 
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V.  THE  MAIN  MENU 


SUPPLY   REQUISITION   DATABASE 


0.  Exit 

1  .  Place  an  order 

2.  Update  files  with  purchase  order 

3.  Mark  items  received 

4.  List  items  not  yet  received 

5.  Display  a  specific  requisition 

6.  Change  an  item  price 

7.  Enter  a  new  supplier 

8.  Create  a  new  account 


Your  choice  >  <: 


Screen  5  .  1 


Main  Menu 


Screen  5  .  1 
following  is  a 


0) 

Quit  and 

1) 

Place  an 

documents 

2) 

3) 
4) 

5) 

6) 

7) 
8) 


is  a   display  of  the   SRdb  Main   Menu.    The 
description  of  the  various  menu  options. 

exit  the  program. 

order.   Generates  the  appropriate  requisition 
and  places  the  order  in  the  database. 

Permits  the  entry  of  a  purchase  order  number  for  each 
item  when  the  purchase  order  information  is  received 
from  supply . 

Permits  the  marking  of  items  which  have  been  received. 

a  listing   of   items   which  have   not   been 


Generates 
received  . 

Displays 
requisi t i 
number  or 
may  be  ma 

Permits  t 
database  . 
ments  as 


a  specific  single  requisition   or  a  series  of 
ons   based   upon    a   particular   requisition 
account  number.    The  requisitions  displayed 
de  subject  to  a  range  of  dates  of  origin. 

he   price  of   an  item   to  be   changed  in   the 
It   does  not  regenerate   requisition  docu- 
this  is  generally  unnecessary. 


Allows  a  new  supplier  to  be  entered  into  the  database. 

Permits  the  creation  of  a  new  account  when  the  appro- 
priate information  is  received  from  the  NPS 
Comptroller . 
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VI.  COMMONLY  USED  PROCEDURES 

There  are  several  procedures  which  are  used  many  times 
throughout  the  SRdb  program.  This  chapter  will  discuss  all 
procedures  which  are  common  to  two  or  more  major  routines. 
For  example,  the  procedures  to  select  an  account  are  the 
same  for  all  six  different  types  of  requisitions,  therefore, 
account  selection  is  a  procedure  which  will  be  discussed 
here  . 


A.   ACCOUNT  SELECTION 


SELECT  AN  ACCOUNT 

- 

1 . 

2. 
3. 

4. 

By  Account  Name      - 
By  Account  Number 
Enter  New  Account    - 
Return  to  Main  Menu  - 

Your  choice  :   1 

Screen  6 . 1 


Select  an  Account 


Many  routines  require  the  user  to  select  a  particular 
account  for  further  activity.  The  desired  account  may  be 
specified  by  either  account  name  or  account  number.  If  the 
account  is  new,  the  option  is  given  to  create  a  new  account. 
Since  creation  of  a  new  account  is  also  an  option  on  the 
main  menu,  it  will  be  discussed  later.  For  purposes  of  the 
example  at  hand,  it  is  assumed  that  the  desired  account  is 
already  on  file,  and  the  user  chooses  to  specify  it  by  name, 
yielding  Screen  6.2 


SRdb  displays  data  on  the  'LYONS'  account  in  response  to 
Screen  6.2.  For  user  convenience,  the  name  input  is  not 
sensitive  to  upper  or  lowercase.  If  no  account  having  the 
desired  name  can  be  located  in  the  database,  the  user  is  so 
informed  and  instructed  to  try  again.  The  dBASE  III  search 
procedure  allows  for  input  of  partial  names,  such  as  'LY' 
instead  of  ' LYONS' . 

Once  the  account  is  found,  the  user  has  several  options 
as  shown  at  the  bottom  of  Screen  6.3.  For  purposes  of  this 
example,  we  have  chosen  to  page  back  to  the  previous  account 
in  the  database  (files  are  alphabetically  arranged  by 
account  name).  This  brings  up  the  'LAPATRA'  account  as  seen 
in  Screen  6 . 4 . 
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Account  Name:  LYONS 
(Blank  aborts  process) 


Screen  6 . 2 


Selecting  by  Account  Name 


Account  Name:   LYONS 
Account  Number:   R1235 
Code:   54LY 

Research  Account  (T/F):   T 
Requisition  Serial  #  Range  ■ 

Select  an  action :  2 


From 
To: 


6500 
6505 


1.  Use  this  account 

2.  Scroll  to  previous  account 

3.  Scroll  to  next  account 

4.  Return  to  last  menu 

5.  Return  to  main  menu 


Screen  6.3    Scrolling  to  the  Previous  Account 

The  LAPATRA  account  displayed  in   Screen  6 .4  is  selected 
for  use  by  choosing  option  '1'  as  shown. 
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Account  Name:   LAPATRA 

Account  Number:   RCAZ2 

Code:   54LP 

Research  Account  (T/F):   T 

Requisition  Serial  #  Range  -   From 

To: 

Select  an  action:   1 

-  1.  Use  this  account 

2.  Scroll  to  previous  account 

-  3.  Scroll  to  next  account 

-  4.  Return  to  last  menu 
5.  Return  to  main  menu 


7001 
7005 


Screen  6.4    Selecting  an  Account  for  Use 


B.   SUPPLIER  SELECTION 


SELECT  A  SUPPLIER 


1.  By  Supplier  Name 

2.  By  Supplier  Number 

3.  Enter  New  Supplier 
<4 .  Return  to  Main  Menu 


Your  choice 


Screen  6  .  5 


Select  a  Supplier 
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Supplier  Name:  IBM 
(Blank  aborts  process) 


Screen  6.6 


Looking  for  IBM 


SELECTED  SUPPLIER 


IBM  GOVT  PRODUCTS 
321  CYPRESS  LANE 
OAKMONT  NM 


43563 


(505)  864-2169 


Supplier  # 


2170 


Select  an  action : 


1.  Use  this  supplier 

2.  Scroll  to  previous  supplier  - 

3.  Scroll  to  next  supplier 

4.  Return  to  last  menu  - 

5.  Return  to  main  menu 


Screen  6.7    Selecting  IBM 


The  IBM  supplier 
use  by   chosing  option 
shown  is  simply  a  number 
of  the  suppliers . 


displayed 
•1'  as 
used 


in  Screen  6.7  is  selected  for 

shown.   The   supplier  number 

by  the  database  to  keep  track 
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C.   REQUIRED  DELIVERY  DATE 

Every  type  of  order,  except  $$  Reimbursement  to  the  RSS 
and  transportation  of  material,  presents  the  user  with  the 
opportunity  to  specify  a  Required  Delivery  Date  (RDD).  As 
shown  in  Screen  6.8,  specification  of  the  RDD  is  optional. 
While  there  are  certainly  no  guarantees,  an  RDD  will  assist 
the  Supply  Department  personnel  in  serving  your  needs. 


REQUIRED  DELIVERY  DATE  (RDD) 

This  is  an  optional  3  digit  Julian  date  when  the 
material  or  service  is  required.  It  is  used  to 
assist  in  the  placement  of  the  order. 

Desire  to  specify  an  RDD  (Y/N)?   Y 


Enter  RDD: 


233 


Screen  6.8    Required  Delivery  Date 
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D.   ORDER  PRIORITY 

Three  different  order  priorities  are  offered  users*  as 
shown  in  Screen  6.9,  and  a  brief  explanation  of  each 
priority  is  presented. 


ORDER  PRIORITY 

A  -  Requirement  is  immediate  and  without  the  material 
required*  the  activity  is  unable  to  perform  one 
or  more  of  its  primary  missions. 
(Note:  Requires  NPS  Superintendent  approval) 


B 

C  -  Routine  requirement. 


Requirement  is  immediate  or  it  is  known  that  such 
a  requirement  will  occur  in  the  immediate  future. 


Select  appropriate  order  priority: 


Screen  6  .  9 


Order  Priority 


Most  NPS  requisitions  are  properly  classified 
priority  'C.  Occasionally  sufficient  justification 
present  to  rate  a  requisition  priority  *B'.  Note  that 
priority  'A'  is  selected,  Screen  6.10  will  be  displayed, 
the  user  chooses  priority  'A1  and  indicates  that  approval 
the  NPS  Superintendent  has  not  been  obtained,  the  opportu- 
nity will  be  given  to  reselect  a  priority.  For  more  infor- 
mation, phone  the  Issue/Receipt  Control  Branch  at  ext.  2012. 


as 
is 
if 
If 
of 


NOTICE 


A  priority  code  of  'A'  requires 
NPS  Superintendent  approval. 


Have  you  obtained  approval  (Y/N)?  


Screen  6.10 


Priority 


Warning 
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PREPARE  PRINTER 


Screen  6.11  will   appear  as  a  warning 
being  directed   to  the   printer.   If   the 
continue,   the  current   procedure  will  be 
Main  Menu,  Screen  5.1,   will  be  displayed, 
was  being  prepared,    all  data  entered  for 
will  be  lost . 


anytime  output  is 

user   opts  not   to 

aborted  ,    and  the 

If  a  requisition 

that  requisition 


PREPARE  PRINTER 


Since  output  will  now  be  sent  to  the 
printer,  it  should  be  connected  and 
have  the  power  turned  on  now. 

WARNING  -  Failure  to  prepare  the  printer  may  cause 
the  computer  to  hang  and  possibly  result 
in  loss  of  data . 


Continue  (Y/N)? 


Screen  6.11 


Prepare  Printer  Warning 


If  the  user  continues  past  this  screen,  and  the  printer 
is  not  powered,  the  system  may  hang.  This  will  result  in  the 
loss  of  the  most  recently  entered  data  and  may  actually 
damage  data  files,  rendering  them  unreadable. 

If  Screen  6.12  is  displayed,  ensure  the  printer  is  prop- 
erly powered,  connected,  and  loaded.  The  correct  response  to 
Screen  6.12  is  an  'R'.  If  the  printer  is  now  prepared  to 
print,  the  process  will  continue. 


'A' 

DOS 


WARNING  - 
the  SRdb 
and  data 


If  the  user 
program  will 
files  may  be 


responds   to 
be  aborted  , 
damaged  . 


Screen  6 
the  user 


12   with 
returned 


an 
to 


No  paper  error  writing  device  PRN 
Abort,  Retry,  Ignore?  


Screen  6.12 


Device  Error 
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Screens  6.13  and  6.14  are  self-explanatory  examples  of 
displays  which  prompt  loading  of  the  correct  form.  The 
printer  should  be  carefully  loaded  such  that  the  document  is 
positioned  to  print  on  the  very  first  line.  Forms  loaded 
prior  to  the  proper  screen  prompt  may  be  ejected  as  the 
printer  is  addressed  by  the  program. 


LOAD  SF-36  INTO  PRINTER 

& 
PRESS  ANY  KEY  TO  CONTINUE 


Screen  6.13 


Load  SF-36 


LOAD  DD-1348  INTO  PRINTER 

& 
PRESS  ANY  KEY  TO  CONTINUE 


Screen  6.14    Load  DD-1348 
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VII.  TO  PLACE  AN  ORDER 


TO  PLACE  AN  ORDER 

The  purpose  of  this  program  is  to  generate  the 
appropriate  supply  forms  (DD  1348-6  &/or  SF  36)  to 
place  an  order . 

Select  the  type  of  order 

1  .   Open  Purchase 

2.  Standard  stock  items  from  NPS  RSS,  NSC  Oakland, 

or  GSA 

3.  Standard  forms  from  NSC  Oakland 

4.  Publications  from  NAVPUBFORMCEN  Phil 

5.  $$  Reimbursement  to  NPS  Ready  Supply  Store 

6.  Transportation  of  material  (e.g.  Federal  Express) 

7.  Return  to  main  menu 


Your  order : 


Screen  7 . 1 


To  Place  an  Order 


Screen  7.1  shows  the  6  different  categories  of  requisi- 
tions which  may  be  prepared.  The  category  titles  should  be 
self-explanatory.  Common  procedures,  which  were  described 
in  detail  in  the  last  chapter,  will  not  be  discussed 
further.  These  procedures,  such  as  selecting  an  account  or 
supplier,  will  be  listed  as  occurring,  however,  the  reader 
is  referred  to  the  previous  chapter  for  details. 
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OPEN  PURCHASE 


The  Open  Purchase  order  appears 
7.1  The  following  is  the  proper 
complete  an  open  order. 

1)  Select  an  account 

2)  Select  a  supplier 

3)  Option  to  specify  an  RDD 

4)  Select  requisition  priority 

5)  Enter  item  to  be  ordered 

6)  Prepare  printer 

1.   Enter  I  tern  to  be  Ordered 


as  option  '  1 ' 
sequence  of 


on  Screen 
events   to 


ente 
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Item  # 


ENTER  ITEM  TO  BE  ORDERED 


Item  description: 


Unit  of  issue:   e_a 

Unit  price:  $   

Quantity:     


< — Only  this  line  is  filed 
(Blank  ends  process.) 


Is  this  order  correct  (Y/N)? 


Screen  7 . 2 


Open  Order 
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Screen  7.3  is  an  example  of  an  order  for  two  IBM 
Personal  Computers.  If  the  user  indicates  that  there  is  an 
error  on  the  screen,  an  opportunity  will  be  provided  to  edit 
the  item  currently  displayed.  Once  the  user  indicates  that 
the  order  for  an  item  is  correct,  there  is  no  opportunity  to 
change  the  request.  The  entire  requisition  may  be  aborted 
just  prior  to  printing,  as  described  in  Chapter  5. 


Item  # : 


ENTER  ITEM  TO  BE  ORDERED 


Item  description: 

IBM  Personal  Computer 

2  56K  Memory 

2  disk  drives 


Unit  of  issue:   e_a 
Unit  price:  $    1545. 00 
Quantity:      2 


<--0nly  this  line  is  filed 
(Blank  ends  process.) 


Is  this  order  correct  (Y/N)? 


Screen  7.3    Sample  Open  Order 
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B.   STANDARD  STOCK  REQUISITION 


The  Sta 
7.1  This  op 
which  have 
forms  or  pu 
of  events  t 


1  ) 
2) 
3) 
4) 
5) 
6) 


Selec 
Selec 
Optio 
Selec 
Enter 
Prepa 
Sel 


ndard  Stock  Order  appears  as  option  '2'  on  Screen 
tion  is  used  to  place  an  order  for  any  materials 
a  National  Stock  Number  (NSN)  assigned,  except 
blications.  The  following  is  the  proper  sequence 
o  complete  a  standard  stock  order. 

t  an  account 

t  a  stock  source 

n  to  specify  an  RDD 

t  requisition  priority 

item  to  be  ordered 

re  printer 

ect  Standard  Stock  Source 


As  seen  in 
which  a  sta 
used  will  d 


Screen  7.4,  there  are  4  different 
ndard  stock  request  may  be  addressed, 
epend  upon  where  the  item  is  located. 


sources  to 
The  source 


STANDARD  STOCK  REQUISITION 

This  program  prepares  a  requisition  for  either  a 
GSA  or  DOD  standard  stock  item.   If  you  want  to 
order  forms  or  publications,  return  to  the  previous 
menu  . 


1.  NPS  RSS  Order 

2.  NSC  Oakland  Order 

3.  .  GSA  Order 

4.  Return  to  previous  menu 


Select  : 


Screen  7 . 4 


Standard  Stock  Sources 


2.   Enter  I  tern  to  be  Ordered 

Screen  7.5  provides  the  user  the  opportunity  to 
enter  the  stock  number  and  a  short  description  of  the  item 
to  be  purchased.  The  item  will  be  described  in  the  SRdb 
database  as  a  concatenation  of  the  stock  number  and  the 
short  name.  The  Distribution  COG  may  be  obtained  in  the  same 
listing  in  which  the  stock  number  was  found. 

Since  a  standard  stock  requisition  may  contain  only 
one  type  of  item,  once  the  user  verifies  that  the  item 
description  is  correct,  the  requisition  will  be  printed. 
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ENTER  ITEM  TO  BE  ORDERED 


Stock  number:   2342356664334 

Short  name:   Pencil  Holder 

Black 


Distribution  COG  symbol:   3_T 
Unit  of  issue:   e_a 

Unit  price:  $  1  . 55 

Quantity:      30 

Is  this  order  correct  (Y/N)?   Y 


Screen  7.5 


Standard  Stock  Item  Entry 


C.   NSC  OAKLAND  FORMS  REQUISITION 

The  requisition  of  forms  from  NSC  Oakland*  CA»  appears 
as  option  '3'  on  Screen  7.1.  This  option  is  used  to  place 
an  order  for  standard  forms,  which  are  assigned  an  NSN  and 
are  stocked  at  NSC  Oakland.  The  following  is  the  proper 
sequence  of  events  to  complete  an  NSC  Oakland  forms  order. 

1)  Select  an  account 

2)  Option  to  specify  an  RDD 

3)  Select  requisition  priority 

4)  Enter  item  to  be  ordered 

5)  Prepare  printer 

Since  this  procedure  is  identical  to  the  standard  stock 
requisition  process  presented  above,  it  will  not  be 
repeated.  Screen  7.6  notifies  the  user  of  the  selected 
process  and  provides  an  opportunity  to  abort. 
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FORMS   ORDER 


This  program  prepares  the  documents  required  to  order 
forms  from  NSC  OAKLAND.  If  you  desire  to  order  forms 
from  NAVPUBFORMCEN  Philadelphia,  do  not  continue. 


Continue  (Y/N)?   


Screen  7 . 6 


Forms  Order 


PUBLICATION  REQUISITION 


The   requisition   of 
Philadelphia,  PA,  appears 
option  is  used  to 
assigned   an  NSN 
following  is   the 
publication  order 


publications   from   NAVPUBFORMCEN, 

as  option  *4'  on  Screen  7.1.   This 

place  an  order  for  publications,  which  are 

and  are   stocked   at  NAVPUBFORMCEN.     The 

proper   sequence  of   events  to   complete  a 


1)  Select  an  account 

2)  Option  to  specify  an  RDD 

3)  Select  requisition  priority 

4)  Enter  item  to  be  ordered 

5)  Prepare  printer 

Since  this  procedure  is  identical  to  the  standard  stock 
requisition  process  presented  above,  it  will  not  be 
repeated.  Screen  7.7  notifies  the  user  of  the  selected 
process  and  provides  an  opportunity  to  abort. 
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PUBLICATION   ORDER 


This  program  prepares  the  documents  required  to  order 
publications  from  NAVPUBFORMCEN ,  Philadelphia. 


Continue  (Y/N)? 


Screen  7 . 7 


Publication  Order 


E.   RSS  REIMBURSEMENT 

The  reimbursement   of  the  NPS   RSS  through  issance   of  a 

'money  value  only1  DD-1348>   appears  as  option  '5'  on  Screen 

7.1.    The   following  is   the  proper   sequence  of   events  to 
complete  a  DD-1348  for  RSS  reimbursement: 

1)  Select  an  account 

2)  Enter  the  amount  to  be  paid 

3)  Prepare  printer 


Screen  7.8  notifies  the  user  of  the  selected  process  and 
provides  an  opportunity  to  abort. 


$$  REIMBURSEMENT  TO  RSS 


This  program  prepares  a  DD-1348  for  'money  value  only' 
as  reimbursement  to  the  NPS  RSS. 


Continue  (Y/N)? 


Screen  7 . 8 


RSS  Reimbursement 
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F.   TRANSPORTATION  OF  MATERIAL  REQUISITION 

The  requisition  of  transportation  of  material  appears  as 
on  Screen  7.1.   This  option  is  used  to  to  pay  for 


option 

services*  such  as  Federal  Express,  which  are  used  to  trans- 
port needed  materials.  The  following  is  the  proper  sequence 
of  events  to  complete  a  transportation  of  materials  requisi- 
tion. 

1)  Select  an  account 

2)  Select  a  supplier  (company) 

3)  Enter  transportation  serial  number 

4)  Select  requisition  priority 

5)  Enter  to  whom  item  is  addressed 

6)  Prepare  printer 


TRANSPORTATION  OF  MATERIAL 


This  program  prepares  the  supply  documents  necessary 
to  use  commercial  carriers  (e.g.  Federal  Express  or 
UPS)  to  ship  items. 


Continue  (Y/N)? 


Screen  7.9    Transportation  of  Material 


Screen  7.9  notifies  the  user  of  the  selected  process  and 

provides  an  opportunity  to  abort.   The  only  new  procedure  in 

this  order   sequence  is  the   entering  of   the  Transportation 

Document   Serial  Number  as  displayed   in   Screens  7.10   and 
7.11.   Screen   7.10  provides   the  opportunity   to  abort   the 

process,   if  the  proper  document   serial  number  has  not  been 
obtained . 
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ENTER  TRANSPORTATION  SERIAL  NUMBER 


Transportation  requests  require  issuance  of  a  special 
serial  number  directly  from  the  comptroller.  Phone 
the  NPS  comptroller  at  x2257  to  obtain. 


Select  an  action: 


-  1.   Ready  to  enter  serial  number  - 

-  2.   Abort  to  main  menu 


Screen  7.10    Prepare  to  Enter  Transportation  Number 


Enter  Serial  #:  1234 


Correct  (Y/N)? 


Screen  7.11    Enter  Transportation  Serial  Number 
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VIII.  UPDATE  FILES  WITH  PURCHASE  ORDER 

In  choosing  option  2  from  the  Main  Menu,  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  enter  purchase 
order  numbers  from  supply  for  each  item.  Screen  8.1  noti- 
fies the  user  of  the  selected  process  and  provides  an  oppor- 
tunity to  abort. 


INPUT  PURCHASE  ORDER  NUMBER  (P0#) 


Once  a  P0#  is  received  from  supply,  this  program 
permits  entry  of  the  P0#  for  each  item  ordered. 
Since  not  all  items  on  the  original  requisition 
may  have  been  ordered  by  supply  on  the  same 
purchase  order,  you  are  requested  to  separately 
confirm  each  item  on  the  purchase  order. 


Continue  (Y/N)? 


Screen  8  .  1 


Input  P.O.  # 


If  the  user  chooses  to  continue,  he  will  be  asked  to 
input  the  requisition  number  and  the  purchase  order  number 
(PO  #)  of  the  item  he  is  seeking,  as  in  Screen  8.2.  Leaving 
the  requisition  number  blank  will  abort  the  process  and 
return  the  user  to  the  main  menu. 


ENTER  DATA 

Requisition  #  :   23423423 
(Blank  ends  process) 


Purchase  Order  #: 
Correct  (Y/N)? 


12345678 


Screen  8 . 2 


Input  Req  #  and  PO  # 
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If  the  requisition  is  not  found  in  the  file,  Screen  8.3 
is  displayed.  The  user  will  subsequently  be  given  another 
opportunity  to  enter  the  requisition  number. 


REQUISITION  NOT  IN  FILE 
Please  double  check  the  requisition  #  and  try  again 
Press  any  key  to  continue... 


Screen  8 . 3 


Requisition  Not  Found 


Once  the  requisition  is  found,  each  item  on  the  requisi- 
tion will  be  displayed  one  at  a  time.  The  user  will  have  the 
opportunity  to  indicate  exactly  which  items  are  on  the 
purchase  order,  as  seen  in  Screen  8.4. 


Requisition  #:   23423423 
Item:   dBASE  III 
Quantity :       1 
Unit  Price:     456.75 

Is  this  item  on  purchase  #   12345678 


(Y/N)? 


Screen  8 . 4 


Item  Displayed  for  PO  #  Input 
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IX.  MARK  ITEMS  RECEIVED 

In  choosing  option  3  from  the  Main  Menu,  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  enter  notation  of 
the  receipt  of  items  in  the  database.  Screen  9.1  notifies 
the  user  of  the  selected  process  and  provides  an  opportunity 
to  abort . 


INPUT  RECEIPT  STATUS 


be  given  the  opportunity  to 
items,  currently  not  marked 

I  terns 


You  will 

speci  fie 

have  now  been  received 

grouped  by  requisition 

number  at  your  option. 


number 


indicate  if 
as  received, 
reviewed  will  be 
or  purchase  order 


Continue  (Y/N)? 


Screen  9 . 1 


Mark  Receipt  of  an  Item 


The  user  is  permitted  to  identify  the  received  item  by 
specifying  the  original  requisition  number  or  the  purchase 
order  number  (P0#),  assuming  the  file  has  been  updated  with 
the  P0#.  Screen  9.2  shows  an  example  of  the  user  choosing 
to  specify  a  requisition  number. 

SRdb  will  then  screen  the  database  and  individually 
display  each  item  filed  under  that  number  which  is  not 
already  marked  as  received.  If  all  items  have  been  marked  as 
received,  the  user  will  be  so  informed.  Otherwise,  each 
outstanding  item  will  be  displayed,  as  in  Screen  9.3. 
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PREPARING  TO  MARK  ITEMS  RECEIVED 


Select : 


1.  Show  by  requisition  # 

2.  Show  by  purchase  order  # 

3.  Return  to  main  menu 


Enter   Requisition   #:  53156504 

Note  -  Blank  ends  process 


Screen  9.2    Pick  Requisition  Number  or  PO  # 


The  following  item  shown  as  not  received 


Requisition  #:   53156504 
Purchase  Ord  #:   54443221 
Item:   dBASE  III 
Quantity:     1      Unit  Price: 


$  456.75 


Has  this  item  been  received  (Y/N)? 


Screen  9.3    Item  Not  Shown  as  Received 
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X.  LIST  ITEMS  NOT  YET  RECEIVED 

In  choosing  option  4  from  the  Main  Menu,  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  create  a  listing 
of  all  items  in  the  database  which  are  tagged  as  not 
received.  Screen  10.1  notifies  the  user  of  the  selected 
process  and  provides  an  opportunity  to  abort. 


LIST  ITEMS  NOT  RECEIVED 


This  program  generates  a  listing  of  items  ordered  but 
not  yet  received.   The  list  may  be  sent  to  the  screen 
or  printer  at  the  user's  option.   The  search  for  items 
not  received  may  also  be  limited  within  parameters 
provided  by  the  user. 


Continue  (Y/N)? 


Screen  10.1 


List  Items  Not  Received 


As  shown  in  Screen  10.2,  the  user  may  select  from  two 
search  types.  Both  searches  will  list  only  items  marked  as 
not  received.  The  user  is  also  given  the  option  of 
displaying  the  listing  on  the  screen  or  routing  it  to  the 
printer  * 
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1.  No  limits  (show  all  items  not  received) 

2.  Limit  list  to  specific  account  number 

3.  Return  to  main  menu 


Select  Display:  


1. 
2. 


Screen 
Printer 


Screen  10.2    Search  Type  Selection 
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XI.  DISPLAY  A  REQUISITION 

In  choosing  option  5  from  the  Main  Menu,  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  display  one  or 
more  requisitions  from  the  SRdb  database.  Screen  11.1  noti- 
fies the  user  of  the  selected  process  and  provides  an  oppor- 
tunity to  abort. 


DISPLAY  REQUISITION 


This  program  will  display  one  or  more  requisitions 
subject  to  user  selection  criteria.  The  list  may 
be  sent  to  the  screen  or  printer  at  the  user's 
option  . 


Continue  (Y/N)? 


Screen  11.1 


Display  Requisitions 


Screen  11.2  is  the  primary 
for  the  display  of  requisitions 
the  type  of  requisition  search 
either  screen  or  printer. 


menu  for   selecting  options 

The  user  is  asked  to  choose 

and  the  mode   of  the  output, 


If  the  user  wants  to  print  out  only  a  single  requisi- 
tion, he  will  select  option  '1'  from  Screen  11.2,  and  he 
will  then  prompted  for  entry  of  the  requisition  number. 
Option  '2'  from  Screen  11.2  will  allow  the  user  to  view  all 
requisitions  on  file  from  a  specific  account.  If  the  user 
selects  option  '4',  he  will  have  the  opportunity  to  review 
all  requisitions  from  a  single  account  generates  between  two 
dates,  as  seen  in  Screen  11.3. 
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DISPLAY  REQUISITIONS 


Selection : 


0.  Return  to  main  menu 

1.  Display  single  requisition 

2.  Display  requisitions  from  specific  account 

3.  Display  requisitions  subject  to  account  #  &  date 


Select  Display;  __L 


1 .  Screen 

2 .  Printer 


Screen  11.2    Display  Requisition  Options 


Find  Requisitions  Created 

Between 
10/01/85   and     12/11/85 
mm/dd/yy  mm/dd/yy 


Screen  11.3    Requisition  Generation  Dates 
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XII.  CHANGE  AN  ITEM  PRICE 

In  choosing  option  6  from  the  Main  Menu*  Screen  5.1*  the 
user  is  presented  with  the  opportunity  to  update  the  actual 
price  of  an  item  which  has  already  been  ordered  and  is  in 
the  SRdb  database.  It  is  not  uncommon  to  receive  price 
changes  from  NPS  Supply  after  an  item  has  been  ordered. 
Screen  12.1  notifies  the  user  of  the  selected  process  and 
provides  an  opportunity  to  abort. 


CHANGE  ITEM  PRICE 


This  module  is  used  when  the  item's  final  price 
differs  from  that  on  the  original  requisition.  You 
will  be  shown  all  items  associated  with  a  specific 
requisition  #  or  purchase  order  #.  Upon  displaying 
each  item,  you  will  be  given  the  opportunity  to 
change  the  item's  unit  price  or  scroll  to  the  next 
i  tern  . 


Continue  (Y/N)? 


Screen  12.1 


Change  Item  Price 


Items  may  be  reviewed  by   specifying  either  the  original 

requisition  number  or  the  purchase  order  number,   if  one  has 

been  assigned.   An  example  will  be  shown  specifying  a  requi- 
sition number,  as  in  Screen  12.2. 

If  the  requisition  number  entered  in  Screen  12.3  cannot 
be  found,  Screen  12.4  will  be  presented.  The  user  will  be 
presented  with  another  opportunity  to  enter  the  correct 
requisition  number. 

Screen  12.5  presents  the  item  to  the  user  and  asks  if  a 
price  change  is  desired.  If  the  user  responds  'Y',  then  the 
cursor  will  move  to  the  price  and  permit  a  change.  The  user 
will  be  asked  to  confirm  changes  before  they  are  saved  to 
the  database.  If  a  mistake  is  made,  the  process  may  be 
repeated  until  the  correct  price  is  filed. 
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Preparing  to  change  an  item  price 


Select : 


1.  Show  by  requisition  # 

2.  Show  by  purchase  order  # 

3.  Return  to  main  menu 


Screen  12.2    Select  Item  by  Req  #  or  PO  # 


Enter   Requisition   #  :   12345678 
Note  -  Blank  ends  process 


Correct  (Y/N)? 


Screen  12.3    Enter  Requisition  Number 


Requisition   #   not  in  file. 

Please  double  check  the  Requisition   #    and  try  again 

Press  any  key  to  continue... 


Screen  12.4 


Requisition  Not  Found 
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Requisition  #:   53365707 

Purchase  Ord  #: 

Item:   9  Meg  Buffer  Board 

Quantity:   2  Unit  Price:  $   2875.50 


Change  unit  price  (Y/N)? 


Screen  12.5    Item  Displayed  for  Price  Change 
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XIII.  ENTER  A  NEW  SUPPLIER 
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INPUT  A  NEW  SUPPLIER 


In  order  to  input  a  new  supplier,  you  must  have  the 
following  information  available  at  this  time: 

Supplier  Name 
Address 
Phone  # 

The  phone  number  is  mandatory.  Do  not  proceed  unless 
you  are  ready  to  enter  the  above  information. 


Continue  (Y/N)  ? 


Screen  13.1 


Enter  New  Supplier 


Screen  13.2  shows  an  example  of   the  blanks  the  the  user 

will  be   expected  to   complete.  Screen  13.3  is   an  example 

which  has   been  completed  by  the   user.  Note  that   SRdb  has 
assigned  the  supplier  number. 
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Name  : 


Address : 
City:  


Phone:  ( 


INPUT   NEW   SUPPLIER 


State: 


) 


Note  -  Phone  #  is  mandatory 


Zip 


Screen  13.2 


Input  new  Supplier 


INPUT   NEW   SUPPLIER 

Name:    New  Guv  Cables 
Address:   1021  Brandnew  Circle 
City:   Jigdog State:   GA 


Phone:  (404)  421-8895 

Assigned  Supplier  #:   8896 
Press  any  key  to  continue.. 


Zip:  31907 


Screen  13.3 


New  Supplier  Example 
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XIV.  CREATE  A  NEW  ACCOUNT 

In  choosing  option  8  from  the  Main  Menu*  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  enter  a  new 
account  into  the  database.  All  required  information  should 
have  been  received  from  the  NPS  Comptroller  office  and  be 
available  to  the  user.  Screen  14.1  notifies  the  user  of  the 
selected  process  and  provides  an  opportunity  to  abort. 


CREATE  A  NEW  ACCOUNT 


In  order  to  enter  a  new  account  you  must  have 
the  following  information  available  at  this  time 


Account  Name 

Account  #  (assigned  by  NPS 
Serial  #  range  assigned  to 
Is  it  a  research  account? 


Comptroller  ) 
account 


WARNING  - 


If  you  do  not  understand  any  of  the 
above  items,  seek  assistance  and  do 
not  continue  further  at  this  time. 


Continue  (Y/N)? 


Screen  14.1 


Enter  New  Account 


Screen  14.2  shows  an  example  of  the  blanks  the  the  user 
will  be  expected  to  complete.  Screen  14.3  is  an  example 
which  has  been  completed  by  the  user.  The  ability  to  enter 
the  last  serial  number  used  assists  in  transitioning  current 
accounts  to  the  SRdb  system.  If  an  account  is  brand  new,  the 
next  document  serial  number  to  be  used  is  the  first  one  in 
the  series.  If  the  account  is  being  transitioned  to  SRdb, 
simply  enter  the  last  serial  number  used,  and  the  system 
will  properly  number  future  requisition  documents. 
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INPUT  NEW  ACCOUNT 


Account  Name: 


Account  Number:  

Code:  

Research  Account  (T/F): 


Requisition  Serial  #  Range  -   From:  

To:  

Last  Serial  #  Used:  

(leave  blank  if  account  never  used  yet) 


Screen  14.2 


Input  New  Account  Screen 


INPUT  NEW  ACCOUNT 

Account  Name:  Newman »  B  N 
Account  Number:  R4321 
Code:  54NM 
Research  Account  (T/F):   T 


Requisition  Serial  #  Range  -   From:  9000 

To  :  9005 

Last  Serial  #  Used:  

(leave  blank  if  account  never  used  yet) 


Correct  (Y/N)? 


Screen  14.3 


New  Account  Example 
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APPENDIX  C 
DATABASE  STRUCTURE 


The  program  uses  5  separate  database  files  (.dbf),  4  of 
which  have  2  indexes  each.  The  width  of  fields  and  indexes 
are  expressed  in  bytes.  It  should  be  noted  that  the  size  of 
indexes  are  approximations  which  were  calculated  in  accor- 
dance with  the  procedures  outlined  in  the  Ashton  Tate 
Advanced  Programmer  s  Guide  [  Ref .  12].  The  grand  totals 
given  for  each  account  represent  the  minimun  number  of  bytes 
required  for  each  record  in  the  database.  The  reader  is 
referred  to  the  Ashton  Tate  -  Advanced  Programmer's  Guide 
[Ref.  12]  for  more  in  depth  sizing  algorithms. 

ACCNT. dbf 


Field         Tvoe 
ANAME          C 

Width 

12 

ACCNO          C 

5 

CODE           C 

4 

RESEARCH       L 

1 

LOSERNO        C 

4 

HISERNO        C 

4 

LASTUSED       C 

4   . 

Total 

34 

Indexes 

ANAME  A     20 

ACCNO  A     13 

33 

Grand  total 

67 

SUP. dbf 


Field 

Type 

Width 

SNAME 

20 

ADDR 

C 

20 

CITY 

c 

12 

STATE 

c 

2 

ZIP 

c 

5 

FONE 

c 

10 

SUPNO 

c 

4 

Total 

75 

Indexes 

SNAME  S 

28 

SUPNO  S 

12 

40 

Gr 

and  total 

115 
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REQ. dbf 


Field         Type  Width 

REONO          C^  5 

ACCNO          C  5 

PRI  CODE       C  1 

SUPHO          C  4 

RDATE          D  9 

Total  ~27 
Indexes 
REQNO_R     16 

ACCNO_R     13  29 

GrandTotal  56 


ITEM. dbf 


TEMPLATE,  dbf 


Field 

Tvpe 

Width 

Dec 

DESCRIP 

44 

UNIT 

C 

2 

OUANT 
UPRICE 

N 

5 

N 

8 

2 

REQNO 
PONO 

C 

8 

C 

8 

RCVD 

L 

1 

Total 

76 

Indexes 

REQNO  I 

16 

SUPNO  I 

16 

32 

Grand  total 

108 

Field         Tvoe 
ITEMNO         N 

Width 

Dec 

2 

DESCRIP        C 

44 

DESCRIP2       C 

44 

DESCRIP3       C 

44 

UNIT           N 

2 

UPRICE         N 

8 

2 

QUANT          N 

8 

Total 

155 

No  indexes  are  required.  This  .dbf  serves  as  a  template 
which  is  copied  to  a  TEMP ORD. dbf  whenever  an  open  purchase 
order  is  to  be  made.  After  the  requisition  documents  have 
been  prepared,  TEMPORD.  dbf  is  erased. 
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APPENDIX  D 
DATA   DICTIONARY 

I.   INTRODUCTION 

Memory  variables  in  dBASE  III  remain  local  to  the 
modules  in  which  they  were  created  unless  they  were  declared 
"PUBLIC"  prior  to  having  a  value  initially  assigned.  This 
data  dictionary  lists  all  PUBLIC  memory  variables.  Unless 
otherwise  noted,  memory  variables  are  assumed  to  be  of  type 
character. 


II 


STATIC  DATA 


Static  data  elements  usually  do  not  change  values  during 
a  typical  normal  run.  They  are  frequently  associated  with 
control  or  reference.  All  static  data  elements  have  preas- 
signed  values. 


A.  File  Names 

The  following  data  elements  identif 
and  are  always  concatenated  with  a  dis 
etc.  stored  as  C_ADRV  or  C_SDRV). 


specific  disk  files 
identifier  (A,B,C, 


ACCNO_A   ndx  file  to  ACCNT.  dbf  indexed  on  account  number. 

ACCNO_R   ndx  file  to  REQ. dbf  indexed  on  account  number. 

ACCNT     dbf  file  for  all  accounts. 

C_ADRV    Memory  variable  stored  in  CONFIG. VAR  file 

designating  the  expected  disk  drive  location  for 
account  and  requisition  related  files. 

C_SDRV    Memory  variable  stored  in  CONFIG. VAR  file 

designating  the  expected  disk  drive  location  for 
supplier  files. 

ITEM      dbf  file  holding  each  item  which  has  been 
requisitioned  and  related  information. 

PONO_I     ndx  file  to  ITEM. dbf  indexed  on  purchase  order 
numbers. 

REQ        dbf  file  holding  data  relating  requisitions  to 
specific  suppliers  and  accounts. 

REQNO_I    ndx  file  to  ITEM. dbf  indexed  on  requisition 
numbers. 

REQNO_R    ndx  file  to  REQ. dbf  indexed  on  requisition 
numbers. 

SNAME_S    ndx  file  to  SUP. dbf  indexed  on  supplier  name. 

SUP       dbf  file  listing  names (    addresses,  and  phone 
numbers  of  known  suppliers. 
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SUPNO_S   ndx  file  to  SUP. dbf  indexed  on  supplier  number. 

TEMPLATE   an  empty  dbf  file  containing  the  structure  of 
fields  essential  in  creation  of  an  open  order 
requisition.   It  is  used  to  create  the  TEMPORD 
file  whenever  an  open  order  requisition  is 
executed. 

TEMPORD   a  temporary  file  used  to  hold  the  full  description 
of  all  items  in  an  open  order.   The  regular 
ITEM. dbf  only  stores  a  one  line  description  ( 38 
characters).  This  file  temporarily  holds  2 
additional  38  character  lines  until  the  SF-36  has 
been  printed.  After  the  SF-36  document  has  been 
successfully  printed,  and  the  essential  details  of 
the  requisition  have  been  filed  in  the  ITEM. dbf 
and  REQ. dbf ,  the  TEMPORD  file  is  erased. 
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B.   Misc  Static  Memory  Variables 


CCOLOR 


ERRCOLOR 


FY 

MONEY 
MSCOLOR 


WMSG 


Holds  color  assignments  for  normal  text  screen 
output.  May  be  changed  to  accommodate  monochrome 
monitors  based  on  the  value  of  C_CLRMON,  however, 
since  the  program  is  expected  to  always  be  run  on 
the  same  system,  this  is  viewed  as  a  static 
variable. 

Holds  color  assignments  for  error  messages  for 
screen  output.  May  be  changed  to  accommodate 
monochrome  monitors  based  on  the  value  of 
C_CLRMON,  however,  since  the  program  is  expected 
to  always  be  run  on  the  same  system,  this  is 
viewed  as  a  static  variable. 

Last  digit  of  the  fiscal  year  used  in  the 
construction  of  the  appropriate  FY  oriented  Julian 
date  for  use  in  forming  valid  requisition  numbers. 
The  fiscal  year  is  stored  in  a  FY.  ID  file  on  the 
account  disk. 

String  "MONEY  VALUE  ONLY"  to  be  inserted  on  on  a 
DD-1348  prepared  to  pay  an  NPS  RSS  billing. 

Color  assignments  for  highlighted  messages  for 
screen  output.  May  be  changed  to  accommodate 
monochrome  monitors  based  on  the  value  of 
C_CLRMON,  however,  since  the  program  is  expected 
to  always  be  run  on  the  same  system,  this  is 
viewed  as  a  static  variable. 

Wait  message  which  requests  user  to  "press  a  key 
to  continue.  This  was  used  vice  the  system  wait 
prompt  because  this  message  is  centered. 
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III.   DYNAMIC  INPUT  DATA  ELEMENTS 

The  following  data  elements  directly  receive  values  from 
user  inputs  during  the  program  run.  A  brief  description  of 
the  variable  is  followed  by  legal  value  constraints  ( length, 
data  type). 

ACCNO     Account  number  assigned  by  NPS  Comptroller  and 
entered  in  ACCNT. dbf  in  NEW_ACNT. PRG;  is  unique. 
(5  char) 

ADDR      Supplier  street  address  as  input  to  SUP. dbf  by 

user;  filed  in  SUP. dbf  by  NEW_SUPL.  PRG   (20  char) 

ADDR1      1st  line  of  address  of  receiver  of  material 
shipped  by  XPOR_ORD. PRG.   (25  char) 

ADDR2      2nd  line  of  address  of  receiver  of  material 
shipped  by  XP0R_0RD. PRG.   (25  char) 

ADDR3      3rd  line  of  address  of  receiver  of  material 
shipped  by  XP0R_0RD. PRG.   (25  char) 

ADDR2      4th  line  of  address  of  receiver  of  material 
shipped  by  XP0R_0RD. PRG.   (25  char) 

ANAME     Account  name,  usually  individual's  last  name,  as 
entered  in  ACCNT. dbf  in  NEW_ACNT. PRG.  (12  char) 

AREACODE   Phone  areacode  of  supplier  as  input  to  SUP. dbf  in 
NEW_SUPL. PRG.   (3  char) 

CITY      City  of  supplier  address  as  input  to  SUP. dbf  by 

user;  filed  in  SUP. dbf  by  NEW_SUPL. PRG   (12  char) 

CODE      Code  of  individual  account  as  entered  in  ACCNT. dbf 
in  NEW_ACNT.  PRG.  (4  char) 

DESCRP     The  mem  var  which  receives  an  item  description. 
The  value  is  subsequently  filed  in  the  DESCRIP 
field  of  the  ITEM,  dbf  file.  (44  char) 

DIST      Distribution  symbol  used  in  ordering  stock- 
numbered  items.  (2  char) 

EXT1      Phone  extention  of  the  1st  point  of  contact  listed 
in  a  supplemental  memo  accompanying  an  order 
exceeding  $1,000.   (4  char) 

EXT2       Phone  extention  of  the  2nd  point  of  contact  listed 
in  a  supplemental  memo  accompanying  an  order 
exceeding  $1,000.   (4  char) 

FONE      Phone  number  of  supplier  as  input  to  SUP. dbf  in 
NEW_SUPL.  PRG.   (7  char) 

HISERN0   High  serial  number  in  range  of  serial  numbers 
assigned  to  a  specific  account  by  the  NPS 
Comptroller  and  entered  in  ACCNT.  dbf  in 
NEW_ACNT. PRG.  (4  char) 
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LASTUSED 

LOSERNO 

NOMEN  1 
NOMEN  2 
POC1 

POC2 

PRI 
QUNT 

RESEARCH 
RDD 

RDD_YES 

SHIPTO 

STATE 

STKNUM 

TODAY 

UNT 


Serial  number  used  in  most" recent  requisition  (not 
including  transportation  requisitions)  from  a 
specific  account  entered  in  ACCNT. dbf  in 
NEW_ACNT.  PRG.  This  field  is  updated  in  the  process 
of  making  each  new  order.   (4  char) 

Low  serial  number  in  range  of  serial  numbers 
assigned  to  a  specific  account  by  the  NPS 
Comptroller  and  entered  in  ACCNT. dbf  in 
NEW_ACNT.  PRG.  (4  char) 

Used  to  hold  1st  line  of  a  short  description  for  a 
stock-numbered  items  in  BUY1_ITM. PRG.  (13  char) 

Used  to  hold  2nd  line  of  a  short  description  for  a 
stock-numbered  item  in  BUY1_ITM. PRG.  (13  char) 

1st  "point  of  contact"  listed  in  a  supplemental 
memo  which  accompanies 
(22  char) 


2nd  "point  of  contact" 
memo  which  accompanies 
(22  char) 


orders  exceeding  $1,000. 

listed  in  a  supplemental 
orders  exceeding  $1,000. 


1  letter  code 
requisition 


e  indicating  priority  assigned 
by  user.  0%',     ' Bt ,  or  'C") 


to 


? 


uantity  of  item  to  be  ordered. 
1  -  99999,  numeric) 


Logical  variable  assigned  .  T.  if.  account  involves 
research  monies.   (  1  logical) 

Required  delivery  date;  3  digit  Julian  date  that 
material  is  desired;  assists  supply  department  in 
placing  order.   (1  -  366,  numeric) 

Logical  variable  showing  if  the  user  has  chosen  to 
specify  an  RDD.  ( . T.  if  rdd  specified;  . F.  if  rdd 
not  specified) 

Addressee  to  whom  material  is  to  be  transported 
when  requisition  is  to  cover  transportation  of 
material;   used  by  XP0R_0RD. PRG   (25  char) 


State  of  supplier  address  as  input  to  SUP. dbf 
user;  filed  in  SUP. dbf  by  NEW_SUPL.  PRG   (2 

Federal  stock  number  of  item  ordered  by 
BUY1_ITM. PRG  (13  char) 


by 
char) 


Date  variable  holding  today's  date.  If 
transactions  are  to  be  generated  for  dates 
than  today,  this  date  must  be  modified  in 
GET_DATE. PRG   (MM/DD/YY,  date) 


other 


Unit  of  order,  e.  g. 


ea 


dz ' ,  etc.  ( 2  char) 
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UPRCE     Unit  price  of  item.   Must  allow  for  order  of  items 
which  are  free.   (  0  -  99,999.99,  numeric) 

ZIP       Zip  code  of  supplier  address  as  input  to  SUP. dbf 
by  user:  filed  in  SUP. dbf  by  NEW_SUPL. PRG 
(5  char) 
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IV.   DYNAMIC  OUTPUT  DATA  ELEMENTS 

The  following  data  elements  receive  values  from  within 
the  program  during  the  program  run.  The  domain  of  values  is 
controlled  since  the  user  never  inputs  a  value  directly,  but 
rather,  values  are  assigned  internally  based  upon  his 
response.  An  example  of  this  type  of  data  element  may  be 
seen  in  the  following  construction  in  which  DEMAND  is  a 
dynamic  output  data  element: 


If  answer 

= 

:y! 

DEMAND 

s 

■r' 

else 

DEMAND 

s 

'N' 

endif 

AREAC0DE1  Areacode  of  2nd  supplier  to  appear  on  a 

supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   AREACODE1  is  not  input  by 
user,  but  rather  read  from  AREACODE  field  of  of 
the  record  the  user  has  chosen  from  the  SUP. dbf . 
Value  assignment  is  made  in  the  SUP_MEM0. PRG 
( 3  char) 

AREAC0DE2  Areacode  of  3rd  supplier  to  appear  on  a 

supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   AREAC0DE2  is  not  input  b 
user,  but  rather  read  from  AREACODE  field  of  o 
the  record  the  user  has  chosen  from  the  SUP. dbf. 
Value  assignment  is  made  in  the  SUP_MEM0. PRG 
( 3  char) 

CHECKER    an  internal  variable  which  assumes  the  value  of 

the  LASTUSED  serial  number  of  an  account,  used  in 
the  calculation  of  a  new  requisition  number  by 
CALC_REQ.  PRG   (4  char) 

CITY1     City  of  2nd  supplier  to  appear  on  a  supplemental 

memo  which  accompanies  orders  exceeding  $1,000.00. 
CITY1  is  not  input  by  user,  but  rather  read  from 
CITY  field  of  of  the  record  the  user  has  chosen 
from  the  SUP. dbf .   Value  assignment  is  made  in  the 
SUP_MEM0. PRG   (12  char) 

CITY2      City  of  3rd  supplier  to  appear  on  a  supplemental 

memo  which  accompanies  orders  exceeding  $1,000.00. 
CITY2  is  not  input  by  user,  but  rather  read  from 
CITY  field  of  of  the  record  the  user  has  chosen 
from  the  SUP. dbf.   Value  assignment  is  made  in  the 
SUP_MEM0. PRG   (12  char) 

COUNTER   Numeric  variable  used  to  count  the  number  of  line 
items  in  a  requisition.   (1  -  13,  numeric) 

DEMAND    Refers  to  the  recurring  nature  of  demand  for  an 
item  or  service.  (  R   if  demand  is  recurring;  'N 
if  nonrecurring. ) 

DOCID     Document  identifier  as  per  p. 4-7  of  Ref  1. 

( rA0Ar  for  NSN  items;  '  AOD'  for  Navy  Forms  & 
Publications;  ' AOE   for  non-standard  stock  items.) 
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F0NE1 


FONE2 


FUND 

GOAHEAD 

JULIAN 
MARKER 

MS  Code 


Phone  number  of  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   F0NE1  is  not  input  by  user, 
but  rather  read  from  FONE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf .   Value 
assignment  is  made  in  the  SUP_MEM0.  PRG   (7  char) 

Phone  number  of  3rd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   F0NE2  is  not  input  by  user, 
but  rather  read  from  FONE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.   Value 
assignment  is  made  in  the  SUP_MEM0.  PRG   (7  char) 


Fund  Code  as  described  on 


2S'  for  non-reimbursible 
PA  material) 


p.  4-8  of  Ref.  1. 
requisitions;  ' Y6 


for 


Logical  control  value  used  to  control  execution 
flow  in  BUY2_ITM. PRG  after  running  of  WARNING. PRG 
( 1,  logical ) 

3  digit  numeric  value  based  on  Julian  date  as 
calculated  by  GET_DATE.  PRG    (1  -  366,  numeric) 

Tracks  the  number  of  lines  being  displayed  on  the 
screen  to  ensure  that  output  does  not  overflow 
screen.   Initialized  to  9,  triggers  a   wait'  when 
value  >  23.  (9-24,  numeric) 


M&S  Code  as  described 
assigned  based  on  PRI 
stock  requisitions.  ( 
for  PRI  CODE  =  'B*  or 


on  p.  4-7  of  Ref.  1.   Value  is 
CODE.  Used  only  for  standard 
'W  for  PRI  CODE  =  '  AT ;  'T' 
'C'). 


PRIORITY 


REQNO 


RMKO 


ROUTE 


Priority  code  as  described  on  p.  4-8 
Value  is  assigned  based  on  PRI_C0DE. 
PRI  CODE  =  *A?;  '  10T  for  PRI  CODE 
PRI_C0DE  =  'C'). 


of  Ref.  1. 
08'  for 
"15T  for 


Requisition  number  which  is  concatenation  of  the 
last  digit  of  the  FY  +  3-digit  JULIAN  date  + 
4-digit  serial  number  which  is  taken  from  an 
individual's  account.  (8  char) 

Remarks  which  are  printed  in  block  '0'  of  a 
DD-1348.  Consists  of  expense  element  appropriate 
to  the  type  of  material  ordered  as  per. Ref.  .6.. 


(Valid  assignments  are 
and  'L'.  ) 


W 


R',  'Q' 


Routing  identifier  as  described  on  p.  4-7  of 
Used  only  for  standard  stock  requisitions.   ( 
for  NSC  Oakland,  'NFZr  for  NAVPUBFORMCEN,  Phil 
'Z9S'  for  NPS  RSS). 


Ref. 

■noz' 
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SENDTO 

SERVICE 
SF36 


SIGNAL 
SNAME1 


SNAME2 


STATE 1 


STATE2 


SUP ADR 


SUPNO 


Supplier  name  from  SNAME  field  of  record  selected 
by  user  from  SUP.  dbf .   Used  in  Block  A  of  DD-1348. 
(20  char) 

Last  digit  of  current  FY.  Entered  in  block  45  of 
DD-1348.  (0-9,  char) 

Logical  variable  =  .  T.  when  printing  of  an  SF-36 
is  required.  An  open  order  requires  printing  of  an 
SF-36  when 

1)  Item  description  exceeds  available  space  on 
DD-1348  T   >  22  char). 

2)  More  than  one  item  is  being  ordered  on  same 
open  order  requisition. 

( 1,  logical) 

Signal  Code  as  described  on  p.  4-8  of  Ref.  1. 

(  D   for  free  publications,   A'  for  all  other  items). 

Name  of  the  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   SNAME1  is  not  input  by  user, 
but  rather  read  from  SNAME  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.   Value 
assignment  is  made  in  the  SUP_MEM0. PRG   (20  char) 

Name  of  the  3rd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   SNAME2  is  not  input  by  user, 
but  rather  read  from  SNAME  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.   Value 
assignment  is  made  in  the  SUP_MEM0.  PRG   (20  char) 

State  address  of  the  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   STATE1  is  not  input  by  user, 
but  rather  read  from  STATE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.   Value 
assignment  is  made  in  the  SUP_MEM0.  PRG   (2  char) 

State  address  of  the  3nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   STATE2  is  not  input  by  user, 
but  rather  read  from  STATE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.   Value 
assignment  is  made  in  the  SUP_MEM0. PRG    (2  char) 

Supplementary  address  of  requisition  as  described 
on  p.  4-8  of  Ref.  1.   This  is  also  known  as  the  job 
order  number.   It  results  from  a  rather  series  of 
concatenations  performed  in  GET_CAT. PRG 
( 5  char) 

Unique  supplier  number  on  which  the  SUP. dbf  is 
indexed.   It  is  assigned  at  the  time  a  new 
supplier  is  entered  in  the  SUP. dbf  by 
NEW_SUPL. PRG.   It  is  based  upon  an  incrementing  of 
the  last  4-digits  of  the  supplier's  phone  number. 
The  incrementation  continues  until  an  unused 
number  is  found.   (4  char) 
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TOTVAL    Total  value  of  a  specific  requisition  or  series  of 
items.  Value  range  depends  upon  specific  usage, 
however,  in  general  ( . 01  -  99,999.99,   numeric). 


TYPEORDR 


Type  of  order  as  assigned  by  NEW  ORDR.  PRG  ('OPEN1, 
TST0CKT,  TF0RMr,  TPUB?,  rRSS$ ' ,  or^XPORT'). 


ZIP1       Zip  code  of  the  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   ZIP1  is  not  input  by  user, 
but  rather  read  from  ZIP  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf .   Value 
assignment  is  made  in  the  SUP_MEMO.  PRG   (5  char) 

ZIP2       Zip  code  of  the  3rd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.   ZIP2  is  not  input  by  user, 
but  rather  read  from  ZIP  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.   Value 
assignment  is  made  in  the  SUP_MEM0. PRG   (5  char) 
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APPENDIX  E 
SRdb  SOURCE  CODE  LISTINGS 


The  following  is  a  listing  of  the  40  SRdb  modules,  which 
are  written  in  dBASEIII  application  language.  Each  module  is 
prefaced  by  a  prologue  giving  the  name,  author,  purpose,  and 
a  summary  of  interaction  with  other  modules. 


BUY1_ITM.  PRG 
BUY2_ITM.  PRG 
CALC_RE0.  PRG 
CHG_PRICE.  PRG 
CONFIG. PRG 
DISP_REQ. PRG 
DIS1_REQ.  PRG 
DIS2_REQ. PRG 
DIS3_REQ. PRG 
FILE_ITM. PRG 
FILE_REQ.  PRG 
FORM_ORD.  PRG 
GET_CAT. PRG 
GET_DATE. PRG 
GET_PRI.  PRG 
GET_RDD.  PRG 
IN_PONO.  PRG 
IN_RCVD. PRG 
MAIN. PRG 
NEW  ACNT. PRG 


NEW_ORDR.  PRG 
NEW_SUPL.  PRG 
OPN_ORDR.  PRG 
PRNT_SM0.  PRG 
PRTSF36.  PRG 
PRT1348a.  PRG 
PRT1348o.  PRG 
PRT1348x.  PRG 
PUB_ORD.  PRG 
QUIT.  PRG 
REQ_HDR.  PRG 
RSS_0RD.  PRG 
SEL_ACNT.  PRG 
SEL_SUPL.  PRG 
SHW_NRI.  PRG 
STK_ORDR.  PRG 
SUP_MEMO.  PRG 
WARNING.  PRG 
WARN_PRT.  PRG 
WELCOME.  PRG 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X   Module  Name:   BUY1_ITM.PRG  X 

x  Author:  Tom  Trotter                                                      X 

x  x 

X  Purpose:   This  module  generates  a  screen  for  user  input  of  a  single        X 

X  item  requisition.   It  is  invoked  in  situations  when  only        x 

X  one  item  may  be  purchased  per  requisition  #  (e.g.  when           X 

X  making  a  D0D,GSA,  or  NPS  RSS  stock  requisition).                 X 

x  x 

x  This  module  is  called  by:   FORM_ORD.PRG                                   X 

x  PUB_ORD.PRG                                    x 

x  STK.ORDR.PRG                                   X 

x  x 

x  This  module  calls:   N  /  A                                                 X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ok  =  •  * 

do  while  ok  <>  'Y' 

public  descrp, unt, uprce, qunt, dist, stknum, nomenl, nomen2 

clear 

3  2,24  SAY  "ENTER  ITEM  TO  BE  ORDERED" 

3  3,24  SAY  " " 

stknum  =  '  ' 

nomenl  =  '  * 

nomen2  =  '  * 

dist  =  •   • 

3  5,14  SAY  "Stock  number:" 

3  5,29  GET  stknum  picture  "3!" 

3  7,14  SAY  "Short  name:" 

3  7,27  GET  nomenl 

3  8,27  GET  nomen2 

3  10,14  SAY  "Distribution  COG  symbol:" 

3  10,40  GET  dist  picture  "3!" 

read 

descrp  =  nomenl  +  "  "  +  stknum 

unt  =  * ea  * 

uprce  =  0.00 

qunt  =  0 

3  12,14  SAY  "Unit  of  issue:" 

3  12,30  GET  unt  picture  "3A" 

3  14,14  SAY  "Quantity:" 

3  14,25  GET  qunt  picture  "99999" 

if  typeordr  <>  'PUB' 

3  16,14  SAY  "Unit  price:  $" 

3  16,28  GET  uprce  picture  "99999.99" 

endif 

read 

set  color  to  Smscolor 

3  20,21  SAY  "Is  this  order  correct  (Y/N)?" 

3  20,51  GET  ok  picture  "3!" 

set  color  to  Sccolor 

read 
enddo 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

X  Module  Name:   BUY2_ITM.PRG  * 

X  X 

X  Author:  Tom  Trotter  x 

x  x 

x  Purpose:   This  module  is  invoked  to  accept  multiple  items  per  single  X 

X            requisition  as  in  the  case  of  an  open  purchase.  The  user  x 

X            is  limited  to  only  12  items  per  requisition  due  to  the  X 

X            physical  size  of  a  SF-36  document.  There  is  currently  no  X 

X            provision  for  generation  of  multiple  SF-36's  per  requisition.  x 

X            Each  item  is  saved  to  the  item.dbf  after  it  is  certified  to  X 

X            be  correct  by  the  user.   The  process  will  stop  when  the  x 

X            user  leaves  the  item  description  blank.  X 

x  x 

x  This  module  is  called  by:   0PN_0RDR.PRG  x 

x  x 

x  This  module  calls:   FILE_ITM.PRG  x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

public  unt, uprce, totval , qunt , goahead 
totval  =0.00 
ok  =  •  ■ 

do  while  counter  <  13 
goahead  =  .T. 
clear 

9  1,4  SAY  "Item  # : ■ 
3  1,12  SAY  counter  picture  "##" 
3  2,24  SAY  "ENTER  ITEM  TO  BE  ORDERED" 

a  3,2*4  SAY  " " 

descrp  =  ■  * 

descrp2  =  '  * 

descrp3  =  '  * 

3  5,1  SAY  "Item  description:" 

3  6,1  GET  descrp 

3  6,41  SAY  "<-- Only  this  line  is  filed" 

3  7,1  GET  descrp2 

3  8,1  GET  descrp3 

3  8,46  SAY  "(Blank  ends  process.)" 

read 

if  descrp  =  '  ■  .and.  counter  =  1 

do  warning 
endif 
if  goahead 

if  descrp  =  *  ■ 
return 

endif 

unt  =  * ea ' 

uprce  =  0.00 

qunt  =  0 

3  11,14  SAY  "Unit  of  issue:" 

3  11,30  GET  unt  picture  "3A" 

3  13,14  SAY  "Unit  price:  $" 

3  13,28  GET  uprce  picture  "99999.99" 

3  15,14  SAY  "Quantity:" 

3  15,25  GET  qunt  picture  "99999" 

read 

set  color  to  Smscolor 

3  20,21  SAY  "Is  this  order  correct  (Y/N)?" 

3  20,51  GET  ok  picture  "3!" 

set  color  to  Sccolor 

read 

if  ok  =  »Yf  .and.  qunt  <>  0 

totval  =  totval  +  (uprce  X  qunt) 
do  file_itm 
if  counter  =  1 
select  E 
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use  ^template 
copy  to  Stempord 
use  Stempord 
else 

select  E 
endif 

append  blank 

replace  itemno  with  counter 
replace  descrip  with  M->descrp 
replace  descrip2  with  M->descrp2 
replace  descrip3  with  M->descrp3 
replace  unit  with  M->unt 
replace  quant  with  M->qunt 
replace  uprice  with  M->uprce 
counter  =  counter  +  1 
endif 
if  ok  =  *Y'  .and.  qunt  =  0 

3  22,15  SAY  "Sorry,  but  ordering  '0'  quantity  makes  no  sense." 
set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
endif 
enddo 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X   Module  Name:   CALC_REQ.PRG  x 

X  X 

x   Author:  Tom  Trotter  x 

X  X 

X  Purpose:   This  module  calculates  and  assigns  the  appropriate  X 

x            requisition  number  (reqno)  for  each  new  requisition.  x 

X            An  8-digit  reqno  is  comprised  of  a  4-digit  Julian  date,  x 

X            and  the  last  4  digits  will  be  the  next  serial  number  to  X 

X            be  used  for  a  specific  account.   The  only  exception  is  X 

x            when  the  requisition  is  for  transportation  expenses,  in  X 

X            which  case  the  user  is  prompted  to  phone  the  NPS  X 

X            Comptroller  to  have  the  last  4  digits  assigned.  x 

X  X 

X  This  module  is  called  by:   NEW_ORDR.PRG  X 

X  X 

x  This  module  calls:    N  /  A  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

public  reqno 

reqno  =  str(year( today )-1980, 1 ) 

if  year(today)  >  1989 

reqno  =  str(year( today )-1990 , 1 ) 
endif 

reqno  =  reqno  +  substr(str( julian+1000 , 4) , 2) 
if  typeordr  =  'XPORT* 
ok  =  ■  ' 
ans  =  2 

do  while  ok  <>  »Y* 
set  scoreboard  on 
clear 
3  6,20  SAY  "ENTER  TRANSPORTATION  SERIAL  NUMBER" 

3  7,20  SAY  " " 

3  9,16  SAY  "Transportation  requests  require  issuance  of  a  special" 
3  10,16  SAY  "serial  number  directly  from  the  comptroller.  Phone" 
3  11,16  SAY  "the  NPS  comptroller  at  x2257  to  obtain." 
3  13,24  SAY  "Select  an  action:  " 

3  14,24  SAY  " " 

3  15,20  SAY  "1.   Ready  to  enter  serial  number" 

3  16,20  SAY  "2.   Abort  to  main  menu" 

3  13,43  GET  ans  picture  "#"  range  1,2 

read 

set  scoreboard  off 

do  case 

case  ans  =  1 

xportno  =  '      ■ 
3  13,0  clear 

3  13,24  SAY  "Enter  Serial  #:" 
3  13,40  get  xportno  picture  "XXXX" 
read 

set  color  to  Smscolor 
3  15,24  SAY  "Correct  (Y/N)?" 
set  color  to  Sccolor 
3  15,39  GET  ok  picture  "3!" 
read 

reqno  =  reqno  +  xportno 
case  ans  =  2 

return  to  master 
endcase 
enddo 
else 

public  checker 
checker  =  A->lastused 
check  =  val(checker)  +  1 
if  check  >  val ( A->hiserno) 

checker  =  A->loserno 
else 
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checker  =  strCcheck,  <+) 

endif 

reqno  =  reqno  +  checker 
endif 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:  CHG_PRICE. PRG                                               x 

x  x 

X  Author:  Tom  Trotter                                                      x 

x  x 

x  Purpose:   This  module  allows  the  user  to  change  the  price  of  an  item       x 

X  if  a  price  revision  is  received.  It  is  common  for  items  to       x 

X  be  received  at  different  prices  than  those  used  at  the  time      X 

X  of  ordering.                                                   x 

x  x 

X  This  module  is  called  by:  MAIN. PRG                                       X 

x  x 

X  This  module  calls:    N  /  A                                               X 

x  x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  ■  ■ 

clear 

a  5,29  SAY  "CHANGE  ITEM  PRICE" 

3  6,29  SAY  " " 

9  8,14  SAY  "This  module  is  used  when  the  item's  final  price" 

3  9,14  SAY  "differs  from  that  on  the  orginal  requisition.  You" 

3  10,14  SAY  "will  be  shown  all  items  associated  with  a  specific" 

3  11,14  SAY  "requisition  #  or  purchase  order  #.  Upon  displaying" 

3  12,14  SAY  "each  item,  you  will  be  given  the  opportunity  to" 

3  13,14  SAY  "change  the  item's  unit  price  or  scroll  to  the  next" 

3  14,14  SAY  "item." 

set  color  to  Smscolor 

3  17,28  SAY  "Continue  (Y/N)?n 

3  17,45  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  'Y' 

return 
endif 

do  while  .T. 
ansl  =  3 

set  scoreboard  on 
clear 

3  8,20  SAY  "Preparing  to  change  an  item  price" 
3  16,32  SAY  "Select:" 
3  16,41  GET  ansl  picture  "*"  range  1,3 

3  17,22  SAY  " " 

3  18,22  SAY  "[  1.  Show  by  requisition  f  ]" 
3  19,22  SAY  "C  2.  Show  by  purchase  order  #  ]" 
3  20,22  SAY  "[   3.  Return  to  main  menu       ]" 

3  21,22  SAY  " " 

read 

set  scoreboard  off 

do  case 

case  ansl  =  1 

kind  =  "Requisition   #" 
select  D 
use 

use  Sitem  index  8reqno_i 
field  =  "D->reqno" 
case  ansl  =  2 

kind  =  "Purchase  Order  t" 
select  D 
use 

use  Sitem  index  &pono_i 
field  =  "D->pono" 
case  ansl  =  3 
return 
endcase 
ans2  =  '  ' 
do  while  ans2  <>  'Y' 
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a 

14,23 

SAY 

3 

14,39 

SAY 

3 

16,11 

SAY 

3 

16,35 

SAY 

3 

16,53 

SAY 

key  =  '        ■ 

clear 

3  9,15  SAY  "Enter" 

3  9,22  SAY  kind 

3  9,38  SAY  ":" 

9  9,41  GET  key  picture  "########" 

3  11,15  SAY  "Note  -  Blank  ends  process" 

read 

if  key  =  *  * 

return  to  master 
endif 

set  color  to  Smscolor 
3  14,28  SAY  "Correct  (Y/N)?" 
3  14,44  GET  ans2  picture  "3!" 
set  color  to  Sccolor 
read 
enddo 
find  Skey 

if  eof()  .or.  bofO 
3  14,0  clear 

kind 

"not  in  file." 
"Please  double  check  the" 
kind 

"and  try  again." 
set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
else 

do  while  Sfield  =  key  .and.  .not.  eof  (  ) 
ans3  =  'N» 
clear 

3  7,11  SAY  "Requisition  t:" 
3  7,27  SAY  reqno 
3  9,11  SAY  "Purchase  Ord  #:" 
3  9,28  SAY  pono 
3  11,11  SAY  "Item:" 
3  11,18  SAY  descrip 
3  13,11  SAY  "Quantity:" 
3  13,22  SAY  quant 
3  13,39  SAY  "Unit  Price:  $" 
3  13,53  SAY  uprice 
set  color  to  Smscolor 

3  16,21  SAY  "Change  unit  price  (Y/N)?" 
3  16,48  GET  ans3 
set  color  to  Sccolor 
read 

if  upper(ans3)  =  'Y' 
newprice  =  uprice 

3  13,53  GET  newprice  picture  "ttttt.tt" 
read 

if  newprice  <>  0 
ans4  =  *  ■ 
3  16,0  clear 
set  color  to  Smscolor 
3  16,25  SAY  "Correct  (Y/N)?" 
3  16,39  GET  ans4 
set  color  to  Sccolor 
read 
if  upper(ans4)  =  'Y' 

replace  uprice  with  newprice 
endif 
else 

ans4  =  'N' 

set  color  to  Smscolor 

3  21,21  SAY  "Is  item  now  FREE?" 

3  21,46  GET  ans4 

set  color  to  Sccolor 

read 

if  upper(ans4)  =  *Y' 
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replace  uprice  with  newprice 
endif 
endif 
skip  -1 
endif 
skip 
enddo 
endif 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

*  Module  Name:   CONFIG. PRG                                                  X 

X  X 

x  Author:  Tom  Trotter                                                       X 

X  X 

X  Purpose:   After  displaying  an  appropriate  warning  banner,  this  module      * 

X  displays  the  current  program  system  configuration  and  allows     X 

X  the  user  to  change  it.   Changes  are  saved  to  a  file  of          x 

X  memory  variables  (conf ig. var) .                                  X 

X  X 

X  This  module  is  called  by:   MAIN. PRG                                       X 

X  X 

X  This  module  calls:   N  /  A                                                 X 

X  X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


ans  =  'N' 

clear 

3  4,32  SAY  "CONFIGURATION" 

3  5,32  SAY  " " 

3  7,16  SAY  "This  program  has  been  preconf igured  for  your  use1 

3  8,16  SAY  "and  should  not  require  reconfiguration  unless" 

3  9,16  SAY  "transported  to  another  system  or  department." 

3  11,16  SAY  "WARNING  -  Configuration  changes  should  only  be" 

3  12,26  SAY  "made  by  personnel  familiar  with  dBASE  III." 

set  color  to  GB+/  ,W+/ 

3  15,23  SAY  "Change  Configuration  (Y/N)?" 

3  15,52  GET  ans 

set  color  to  GR+/B,W+/  , B+ 

read 

if  upper(ans)  <>  *Y' 

return 
endif 
clear 

restore  from  config.var 
c_sdrv  =  substr( c_sdrv, 1 , 1 ) 
c_adrv  =  substr(c_adrv, 1 , 1 ) 

3  2,17  SAY  "This  program  is  configured  as  follows:" 
3  6,17  SAY  "Department:" 
3  6,30  SAY  c_dept 
3  8,17  SAY  "Bldg:" 
3  8,24  SAY  c_bldg 
3  10,17  SAY  "Room:" 
3  10,24  SAY  c_room 
3  12,17  SAY  "Telephone:" 
3  12,29  SAY  c_Phone 

3  14,17  SAY  "Database  disk  locations:  " 
3  15,37  SAY  "Suppliers:  '  •  drive" 
3  15,49  SAY  c_sdrv 

3  17,37  SAY  "Accounts:   '  '  drive" 
3  17,49  SAY  c_adrv 

3  19,17  SAY  "Color  Monitor  (T/F):" 
3  19,38  SAY  c_clrmon 
ans  =  '  ' 

set  color  to  R/  ,R/W 

3  21,17  SAY  "Is  this  the  correct  configuration?  (Y/N)  " 
3  21,60  GET  ans 
set  color  to  GR+/B,  W+/  ,  B+ 
read 

if  upper(ans)  =  "N" 
ok  =  .F. 
do  while  .not.  ok 

3  6,30  GET  c_dept 

3  8,24  GET  c_bldg 

3  10,24  GET  c_room 

3  12,29  GET  c_phone 

3  15,49  GET  c_sdrv 
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read 

do   while    .not.    ( upper (c_sdrv)    =  -'A'     .or.    upper(c_sdrv)    =    'B*     .or. 
upper(c_sdrv)    =    *C     .or.    upper(c_sdrv)    =    'D') 
9    15,49   GET   c_sdrv 
read 
enddo 

3    17,49    GET   c_adrv 
read 

do   while    .not.    ( upper (c_adrv)    =    'A*     .or.    upper(c_adrv)    =    'B'     .or. 

rv)    =    'D') 


upper! 

c   a 

drv)  =  'C  . 

or . 

upper( 

c. 

a  17, 

49 

GET  c_adrv 

read 

enddo 

9  19,38 

GET 

c_clrmon 

3  21,60 

GET 

ans 

read 

if  upper(ans)  =  'Y* 

ok  = 

.T. 

c_sdrv  = 

(c_sdrv)  + 

i  .  i 

c_adrv  = 

(c_adrv)  + 

•  .  i 

save 

to 

config.var  all 

like 

c_ 

X 

endif 

enddo 

endif 

return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:   DISP_REQ.PRG                                                X 

X  X 

X  Author:  Tom  Trotter                                                      X 

x  x 

X  Purpose:   This  module  presents  the  user  with  menus  for  use  in  the         X 

X  selection  of  requisitions  for  display.  The  user  is  given         X 

X  the  option  of  screen  or  printer  output.                         X 

x  x 

X  This  module  is  called  by:   MAIN.PRG                                       X 

x  x 

x  This  module  calls:   DIS1_REQ                                              X 

X  DIS2_REQ                                              X 

x  DIS3_REQ                                            x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  while  .T. 
ans  =  »  • 
clear 
3  7,28  SAY  "DISPLAY  REQUISITION" 

3  8,28  SAY  ■ " 

3  10,15  SAY  "This  program  will  display  one  or  more  requisitions" 

3  11,15  SAY  "subject  to  user  selection  criteria.  The  list  may" 

3  12,15  SAY  "be  sent  to  the  screen  or  printer  at  the  user's" 

3  13,15  SAY  "option." 

set  color  to  Smscolor 

3  16,27  SAY  "Continue  (Y/N)?n 

3  16,44  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  *Y' 

return 
endif 
pick  =  1 
clear 

3  2,27  SAY  "DISPLAY  REQUISITIONS" 
set  color  to  Smscolor 
3  5,29  SAY  "Selection:   " 
set  color  to  Sccolor 

3  5,41  GET  pick  picture  "#"  range  0,3 
3  6,11  SAY  »==========================================================« 

3  7,11  SAY  "/    0.   Return  to  main  menu  /" 

3  8,11  SAY  "/    1.   Display  single  requisition  /" 

3  9,11  SAY  "/    2.   Display  requisitions  from  specific  account       /" 
3  10,11  SAY  *V    3.   Display  requisitions  subject  to  account  #  8  date  /" 
3  11,11  SAY  "==========================================================" 

read 

if  pick  =  0 

return 
endif 
outpt  =  1 

set  color  to  Smscolor 
3  14,27  SAY  "Select  Display:   " 
set  color  to  Sccolor 

3  14,44  GET  outpt  picture  "#"  range  1,2 
3  15,27  SAY  "==================" 

3  16,27  SAY  "/    1.   Screen    /" 
3  17,27  SAY  "/    2.   Printer   /■ 
3  18,27  SAY  "==================« 

read 

public  prtout 

if  outpt  =  1 

prtout  =  .F. 
else 

prtout  =  .T. 
endif 
do  case 
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case  pick  =  1 

do  disl_req 

case  pick  =  2 

do  dis2_req 

case  pick  =  3 

do  dis3_req 

endcase 

enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x   Module  Name:   DIS1_REQ.PRG  x 

X  X 

x  Author:  Tom  Trotter                                                         X 

x  x 

x  Purpose:   This  module  outputs  the  contents  of  one  requisition  as           X 

X  selected  by  the  user  input  of  a  requisition  #.                   x 

x  x 

X  This  module  is  called  by:  DISP_REQ.PRG                                     X 

X  X 

x   This  module  calls:   REQ_HDR.PRG  x 

X  WARN_PRT.PRG  X 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  while  .T. 
clear 

key  =  ■         • 

3  9,25  SAY  "Enter  Requisition  #:n 
9  9,47  GET  key  picture  "##*#*#**" 
9  11,28  SAY  "(Blank  ends  process.)" 
read 
if  key  =  «  ■ 

return 
endif 

counter  =  0 
marker  =  9 
endif 
select  C 
use 

use  Sreq  index  &reqno_r 
find  Skey 
if  eof() 

3  14,28  SAY  "REQUISITION  NOT  FOUND" 

3  16,18  SAY  "Double  check  the  requisition  #  and  try  again." 
else 

totcnt  =  0 
value  =0.00 
totval  =0.00 
if  prtout 
.do  warn_prt 
c  X  63  r* 

3  10,31  SAY  "LOAD  PRINTER" 
3  12,37  SAY  "S" 

3  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  *  ' 
wait  »« 
endif 

key2  =  C->accno 
select  A 
use 

use  Saccnt  index  &accno_a 
find  &key2 
key3  =  C->supno 
select  B 
use 

use  &sup  index  &supno_s 
find  &key3 
do  req_hdr 
select  D 
use 

use  Sitem  index  &reqno_i 
find  Skey 

do  while  D->reqno  =  C->reqno  .and.  .not.  eof ( ) 
counter  =  counter  +  1 
marker  =  marker  +  1 
totcnt  =  totcnt  +  D->quant 
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value  =  D->quant  X  D->uprice 

totval  =  totval  +  value 

3  marker, 1  SAY  counter  picture  "ft" 

3  marker, 5  SAY  D->descrip 

3  marker, 46  SAY  "$" 

3  marker, 47  SAY  D->uprice  picture  "##,###.##" 

3  marker, 57  SAY  D->quant  picture  "###*#" 

3  marker, 66  SAY  D->rcvd 

3  marker, 70  SAY  D->pono 

if  marker  >  21  .and.  .not.  prtout 
marker  =  9 
wait  Swmsg 
3  9,0  clear 

endif 

skip 
enddo 
if  counter  <>  0 

marker  =  marker  +  3 

3  marker, 15  SAY  "Total  items: " 

.3  marker, 28  SAY  totcnt  picture  "*#####" 

3  marker, 42  SAY  "Total  Value:  $n 

3  marker, 57  SAY  totval  picture  "#,###,###.##" 
endif 
if  prtout 

3  marker, 70  SAY  chr(13) 

set  device  to  screen 
else 

set  color  to  Smscolor 

wait  Swmsg 

set  color  to  &  ccolor 
endif 
endif 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

X  Module  Name:   DIS2_REQ                                                      X 

X  X 

X  Author:  Tom  Trotter                                                         X 

X  X 

X  Purpose:   This  module  displays  all  requisitions  from  a  single  account      X 

X  as  specified  by  the  user.   The  SEL_ACCNT  module  is  used  to       x 

X  select  an  account,  and  this  module  will  then  skip  through        x 

x  the  req.dbf  and  item.dbf  until  all  requisitions  for  the          x 

X  account  have  been  displayed.                                      X 

X  X 

X  This  module  is  called  by:   DISP_REQ.PRG                                    X 

x  x 

X  This  module  calls:   SEL_ACNT.PRG                                            X 

X  REQ_HDR.PRG                                             X 

X  WARN_PRT.PRG                                            x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  sel_acnt 
key  =  A->accno 
select  C 
use 

use  Sreq  index  8accno_r 
find  Skey 
if  eof() 
clear 

9  15,18  SAY  "No  Requisitions  on  file  for 
9  17,20  SAY  "Account  Name:" 
3  17, 34  SAY  A->aname 
3  19,20  SAY  "Account  Number:" 
9  19,36  SAY  A->accno 
else 
clear 
if  prtout 

do   warn_prt 
clear 

3  10,31  SAY  "LOAD  PRINTER" 
3  12  37  SAY  "8" 

3  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  '  • 
wait  " 
endif 

do  while  C~>accno  =  A->accno  .and.  .not.  eof ( ) 
key2  =  C->supno 
select  B 
use 

use  8sup  index  8supno_s 
find  8key2 
counter  =  0 
marker  =  9 
totcnt  =  0 
value  =  0.00 
totval  =0.00 
do  req_hdr 
key3  =  C->reqno 
select  D 
use 

use  Sitem  index  8reqno_i 
find  8key3 
endif 

do  while  D->reqno  =  C->reqno  .and.  .not.  eof ( ) 
counter  =  counter  +  1 
marker  =  marker  +  1 
totcnt  =  totcnt  +  quant 
value  =  D->quant  x  D->uprice 
totval  =  totval  +  value 
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9  marker, 1  SAY  counter  picture  "ff#" 
9  marker, 5  SAY  D->descrip . 
9  marker, 46  SAY  "$" 
9  marker, 47  SAY  D->uprice 
9  marker, 57  SAY  D->quant 
9  marker, 66  SAY  D->rcvd 
9  marker, 70  SAY  D->pono 
if  marker  >  21  .and.  .not.  prtout 
marker  =  9 

set  color  to  Smscolor 
wait  &wmsg 
set  color  to  Sccolor 
9  9,0  clear 
endif 
skip 
enddo 
if  counter  <>  0 

marker  =  marker  +  3 
9  marker, 15  SAY  "Total  items:" 
9  marker, 28  SAY  totcnt  picture  "#####" 
9  marker, 42  SAY  "Total  value:  $" 
9  marker, 57  SAY  totval  picture  "#,###,###.##" 
endif 
select  C 
skip 
if  .not.  prtout 

set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
endif 
enddo 
if  prtout 

9  marker, 70  SAY  chr(13) 
set  device  to  screen 
endif 
endif 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

x   Module  Name:   DIS3_REQ.PRG  X 

X  X 

x  Author:  Tom  Trotter                                                      x 

x  x 

x  Purpose:   This  module  displays  all  requisitions  from  a  user  selected       X 

X  account,  subject  to  a  screen  on  the  origin  date  of  the          X 

X  requisition.   Output  may  be  directed  to  the  screen  or  the       X 

x  printer  at  the  user's  option.                                 x 

x  x 

x  This  module  is  called  by:   DISP_REQ.PRG                                 x 

X  X 

X  This  module  calls:   SEL_ACNT.PRG                                          X 

x  REQ_HDR.PRG                                         x 

X  HARN_PRT.PRG                                          X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

hidate  =  today 

lodate  =  CTOD("10/l/85") 

clear 

3  6,26  SAY  " n 

3  8,26  SAY  "Find  Requisitions  Created" 

3  10,34  SAY  "Between" 

3  12,26  GET  lodate 

3  12,36  SAY  "and" 

3  12,43  GET  hidate 

3    13,26    SAY    "mm/dd/yy  mm/dd/yy" 

read 

do  sel_acnt 

counter  =  0 

marker  =  9 

key  =  A->accno 

select  C 

use 

use  Sreq  index  Saccno_r 

find  &key 

if  eof() 

clear 

3  8,25  SAY  "No  Requisitions  Are  on  File  For" 

3  10,29  SAY  "Account  Name:" 

3  10,44  SAY  A->aname 

a  12,29  SAY  "Account  Number:" 

3  12,46  SAY  A->accno 

3  14,36  SAY  "Between" 

3  16,27  SAY  lodate 

3  16,38  SAY  "and" 

3  16,46  SAY  hidate 
else 

clear 

if  prtout 

do   warn_prt 
clear 

3  10,31  SAY  "LOAD  PRINTER" 
3  12  37  SAY  "&" 

3  14*25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  •  ' 
wait  • ' 
endif 

do  while  C->accno  =  A->accno  .and.  .not.  eof ( ) 
if  C->rdate  >=  lodate  .and.  C->rdate  <=  hidate 

key2  =  C->supno 

select  B 

use 

use  &sup  index  &supno_s 

find  8key2 
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totcnt  =  0 
value  =  0.00 
totval  =0.00 
counter  =  0 
marker  =  9 
do  req_hdr 
key3  =  C->reqno 
select  D 
use 

use  Sitem  index  8reqno_i 
find  Skey3 

do  while  D->reqno  =  C->reqno  .and.  .not.  eof ( ) 
counter  =  counter  +  1 
marker  =  marker  +  1 

3  marker, 1  SAY  counter  picture  "##f" 
3  marker, 5  SAY  D->descrip 
3  marker, 46  SAY  "$" 
3  marker, 47  SAY  D->uprice 
3  marker, 57  SAY  D->quant 
3  marker, 66  SAY  D->rcvd 
3  marker, 70  SAY  D->pono 
totcnt  =  D->quant  +  totcnt 
value  =  D->quant  X  D->uprice 
totval  =  value  +  totval 
if  marker  >  21  .and.  .not.  prtout 
marker  =  9 

set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
3  9,0  clear 
endif 
skip 
enddo 
if  counter  <>  0 

marker  =  marker  +  3 
3  marker, 15  SAY  "Total  Items:" 
3  marker, 28  SAY  totcnt  picture  "####*" 
3  marker, 45  SAY  "Total  Value:  $" 
3  marker, 60  SAY  totval  picture  "#,###,*##.##' 
set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
endif 
endif 
select  C 
skip 
enddo 
if  prtout 

3  marker, 70  SAY  chr(13) 
set  device  to  screen 
endif 

if  counter  =  0 
clear 

3  8,25  SAY  "No  Requisitions  Are  on  File  For" 
3  10,29  SAY  "Account  Name:" 
3  10,44  SAY  A->aname 
3  12,29  SAY  "Account  Number:" 
3  12,46  SAY  A->accno 
3  14,36  SAY  "Between" 
3  16,27  SAY  lodate 
3  16,38  SAY  "and" 
3  16,46  SAY  hidate 
set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
endif 
endif 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

X  Module  Name:   FILE_ITM.PRG                                                  X 

X  X 

x  Author:  Tom  Trotter                                                         X 

x  x 

X  Purpose:   This  module  is  used  to  append  a  blank  record  to  the  item.dbf     x 

X  and  fill  in  several  fields  from  current  memory  variables.        X 

X  X 

x  This  module  is  called  by:   BUY2_ITM.PRG  x 

X  F0RM_0RD.PRG  x 

X  PUB_ORD.PRG  X 

x  STK_ORDR.PRG  x 

X  X 

X   This  module  calls:   N  /  A  x 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

select  D 

use 

use  Si tern  index  &reqno_i , &pono_i 

append  blank 

replace  descrip  with  M->descrp 

replace  unit  with  M->unt 

replace  quant  with  M->qunt 

replace  uprice  with  M->uprce 

replace  reqno  with  M->reqno 

use 

return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x      Module    Name:       FILE_REQ.PRG  x 

X  X 

x  Author:  Tom  Trotter                                                      x 

x  x 

x  Purpose:   This  module  is  used  to  append  a  blank  record  to  the  req.dbf      x 

x  and  fill  in  several  fields  from  current  memory  variables.        X 

X  X 

X  This  module  is  called  by:   XP0R_0RD.PRG                                    X 

x  F0RM_0RD.PRG                                   x 

X  PUB_ORD.PRG                                     X 

X  STK_ORDR.PRG                                    X 

X  0PN_0RDR.PRG                                    X 

X  RSS_ORD.PRG                                     X 

x  x 

x  This  module  calls:   N  /  A                                                  X 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

select  C 

use 

use  Sreq  index  &reqno_r , &accno_r 

append  blank 

replace  reqno  with  M->reqno 

replace  accno  with  M->accno 

replace  pri_code  with  M->pri 

replace  supno  with  M->supno 

replace  rdate  with  M->today 

if  typeordr  <>  'XPORT' 

select  A 

replace  lastused  with  M->checker 
endif 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X  Module  Name:   F0RM_0RD.PRG  x 

X  X 

x  Author:  Tom  Trotter  x 

x  x 

x  Purpose:   This  module  coordinates  the  process  of  ordering  forms  X 

x  from  NSC  Oakland.  X 

x  X 

x  This  module  is  called  by:   NEW_ORDR.PRG  x 

x  x 

x  This  module  calls:   GET_RDD.PRG  x 

x  GET_CAT.PRG  x 

x  GET_PRI.PRG  x 

X  BUY1_ITM.PRG  x 

x  FILE_REQ.PRG  x 

x  FILE_ITM.PRG  x 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  »  ' 

clear 

3  8,33  SAY  "FORMS   ORDER" 

3  9,33  SAY  " " 

3  11,13  SAY  "This  program  prepares  the  documents  required  to  order" 

3  12,13  SAY  "forms  from  NSC  OAKLAND.   If  you  desire  to  order  forms" 

3  13,13  SAY  "from  NAVPUBFORMCEN  Philadelphia,  do  not  continue." 

set  color  to  Smscolor 

3  16,30  SAY  "Continue  (Y/N)?n 

set  color  to  Sccolor 

3  16,47  GET  ans 

read 

if  upper(ans)  <>  *Y' 

return 
endif 

public  sendto,supno, route 
sendto  =  '(00228)  NSC  OAKLAND,  CA' 
supno  =  '1111' 
route  =  'NOZ' 
do  get_rdd 
do  get_pri 
do  get_cat 
do  buyl_itm 

public  docid, signal , fund 
docid  =  'AOD' 
signal  =  'A' 
if  uprce  =  0 

fund  =  'Y6' 
else 

fund  =  '2S' 
endif 

do  prtl348a 
do  file_req 
do  file_itm 
return  to  master 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

x  Module  Name:   GET_CAT.PRG                                                x 

X  X 

X  Author:  Tom  Trotter                                                      x 

x  x 

x  Purpose:   This  module  presents  the  user  with  a  menu  from  which  to          X 

X  select  the  appropriate  category  of  items  to  be  purchased.        X 

x  Other  memory  variable  assignments  are  made  based  upon  the        x 

X  category  selected  by  the  user.   The  user  is  also  queried        x 

X  concerning  the  recurring  nature  of  the  demand.                  x 

x  x 

x  This  module  is  called  by:  F0RM_0RD.PRG                                    X 

X  0PN_0RDR.PRG                                    x 

X  PUB_ORD.PRG                                     x 

X  STK_ORDR.PRG                                    x 

X  XPOR_0RD.PRG                                    x 

x  x 

X  This  module  calls:   N  /  A                                                X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

public  supadr, rmko 


ans 


i 


if  typeordr  =  'OPEN'  .or.  typeordr  =  'STOCK* 
do  while  ans  <>  'Y* 

ansl  =  1 

clear 

3  0,20  SAY  "SELECT  CATEGORY  OF  ITEMS  TO  BE  PURCHASED" 

3  1,20  SAY  " " 

3  3,11  SAY  "1.   CONSUMABLE  SUPPLIES  (e.g.  subscriptions  to  periodicals" 

3  4,17  SAY  "cables,  floppy  disks,  misc  items  for  micro  computers," 

3  5,17  SAY  "and  other  items  having  a  useful  life  of  <  1  year)." 

3  7,11  SAY  "2.   MINOR  PROPERTY  (i.e.  unit  value  >  $  1000.  and  a  useful" 

3  8,17  SAY  "life  of  at  least  2  years)." 

3  10,11  SAY  "3.   PLANT  PROPERTY  (i.e.  unit  value  >  $  1000.)" 

3  12,11  SAY  "4.   MAINTENANCE  FOR  MINOR  PROPERTY" 

3  14,11  SAY  "5.   MAINTENANCE  FOR  PLANT  PROPERTY" 

3  16,11  SAY  "6.   OTHER  PURCHASED  SERVICES" 

3  18,6  SAY  "Note  -  All  items  on  single  requisition  must  be  of  same  " 

3  18,61  SAY  "category" 

3  19,13  SAY  "(e.g.  cannot  order  hardware  8  software  on  the  same  order). 

3  21,23  SAY  "Selection:" 

a  21,35  GET  ansl  picture  "#"  range  1,6 

read 

set  color  to  Smscolor 

3  23,21  SAY  "Correct  (Y/N)?" 

3  23,37  GET  ans  picture  "3!" 

set  color  to  Sccolor 

read 
enddo 
endif 
if  typeordr  =  'FORM*  .or.  typeordr  =  'PUB'  .or.  typeordr  =  'RSS$' 

ansl  =  1 
endif 
if  typeordr  =  'XPORT' 

ansl  =  7 
endif 
do  case 

case  ansl  =  1 

rmko  =  »T» 

supadr  =  'T'  +  trim( A->accno)  +  '00' 
case  ansl  =  2 

rmko  =  lW» 

supadr  =  'W  +  trim(  A->accno )  +  'MA* 
case  ansl  =  3 

rmko  =  ■H1 

supadr  =  'W»  +  trim( A->accno )  +  fPA' 
case  ansl  =  4 
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rmko  =  »P» 

supadr  =  'P'  +  trim(A->accno)  +  'MM' 
case  ansl  =  5 
rmko  =  »P' 

supadr  =  'P*  +  trim( A->accno )  +  'PM' 
case  ansl  =  6 
rmko  =  'Q' 

supadr  =  'Q'  +  trim( A->accno)  +  'QS' 
case  ansl  =  7 
rmko  =  »L» 

supadr  =  *L'  +  trim(A->accno)  +  '00' 
endcase 
if  A->research 

supadr  =  A~>accno 
endif 

public  demand 
if  typeordr  =  'RSS$' 

demand  =  'R' 
else 

ans  =  *  ' 
ans2  =  •  » 

do  while  ans2  <>  ■Y* 
clear 
3  8,29  SAY  "SPECIFY  DEMAND  TYPE" 

3  9,29  SAY  " " 

3  11,18  SAY  "Is  there  a  recurring  demand  for  the" 

3  12,18  SAY  "items/services  on  this  requisition  (Y/N)?" 

3  12,62  GET  ans  picture  "3!" 

read 

set  color  to  Smscolor 

3  15,30  SAY  "Correct  (Y/N)?" 

3  15,46  GET  ans2  picture  "3!" 

set  color  to  Sccolor 

read 

if  ans  =  'Y* 

demand  =  '  Rr 
else 

demand  =  'N1 
endif 
enddo 
endif 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

x  Module  Name:   GET_DATE.PRG  x 

x  x 

x  Author:  Tom  Trotter  x 

X  X 

X  Purpose:   Since  dBASE  III  does  not  allow  one  to  change  the  system  X 

X  date  from  within  dBASE,  this  module  allows  the  user  to  X 

X  update  the  memory  var  (TODAY)  if  it  is  in  error.  It  also  X 

X  will  allow  generation  of  documents  dated  other  than  the  X 

X  current  date.   After  the  desired  date  is  confirmed  by  the  X 

x  user,  a  Julian  date  is  calculated.  Leap  years  are  accounted  X 

X  for  in  the  Julian  date  calculation.  X 

X  X 

x   This  module  is  called  by:   MAIN.PRG  x 

X  X 

X   This  module  calls:    N  /  A  X 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

clear  memory 
today  =  date( ) 
do  while  .T. 
ans  =  ■  ■ 
clear 

3  5,28  SAY  "CONFIRM  TODAY'S  DATE" 
3  7,33  SAY  today 
3  9,31  SAY  "(Y/N)?" 
3  9,39  GET  ans 
read 

if  upper(ans)  <>  'Y' 
clear 

3  5,28  SAY  "ENTER  TODAY'S  DATE" 
3  7,33  GET  today  picture  "3Dn 
3  8,33  SAY  "MM/DD/YR" 

3  15,10  SAY  "Note  -  Leading  zeros  are  required  for  single  digit  values." 
read 
else 

mon  =  month(today) 
do  case 

case  mon  =  1 

Julian  =  0 

case  mon  =  2 

Julian  =  31 
case  mon  =  3 

Julian  =  59 
case  mon  =  4 

Julian  =  90 
case  mon  =  5 

Julian  =  120 
case  mon  =  6 

Julian  =  150 
case  mon  =  7 

Julian  =  181 
case  mon  =  8 

Julian  =  212 
case  mon  =  9 

Julian  =  243 
case  mon  =  10 

Julian  =  273 
case  mon  =  11 

Julian  =  304 
case  mon  =  12 
Julian  =  334 
endcase 

Julian  =  Julian  +  day(today) 
if  int(year( today)/4)  x  4  =  year(today)  .and.  month(today)  >  2 

Julian  =  Julian  +  1 
endif 
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save    to    date.var   all    except   ans 
return 
endif 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:   GET_PRI.PRG                                                  X 

X  X 

X  Author:  Tom  Trotter                                                        x 

X  x 

x  Purpose:   This  module  presents  the  user  with  a  menu  for  the  selection      X 

X  of  an  order  priority.   If  the  user  selects  pri  "An  he  is         x 

X  warned  that  it  requires  approval  by  the  NPS  superintendent.      X 

X  Other  memory  variables  are  assigned  values  for  document          X 

X  generation  based  upon  the  user's  selection.                      x 

X  X 

x  This  module  is  called  by:   FORM.ORD.PRG                                   x 

X  0PN_0RDR.PRG                                    X 

X  PUB_ORD.PRG                                     X 

X  STK.ORDR.PRG                                    X 

x  XP0R_0RD.PRG                                   x 

X  X 

X   This  module  calls:   N  /  A  X 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

public  pri 
ok  =  •  • 
okl  =  '  ' 
pri  =  'C 
do  while  .T. 

3  4,30  SAY  "ORDER  PRIORITY" 

3  6,12  SAY  "A  -  Requirement  is  immediate  and  without  the  material" 

3  7,16  SAY  "required,  the  activity  is  unable  to  perform  one" 

3  8,16  SAY  "or  more  of  its  primary  missions." 

3  9,17  SAY  "(Note:  Requires  NPS  Superintendent  approval)" 

3  11,12  SAY  "B  -  Requirement  is  immediate  or  it  is  known  that  such" 

3  12,16  SAY  "a  requirement  will  occur  in  the  immeidate  future." 

3  14,12  SAY  "C  -  Routine  requirement." 

3  17,19  SAY  "Select  appropriate  order  priority:" 

3  17,55  GET  pri  picture  "3!" 

read 

set  color  to  Smscolor 

3  19,30  SAY  "Correct  (Y/N)?" 

3  19,46  GET  ok  picture  "3!" 

set  color  to  Sccolor 

read 

if  ok  =  'Y'  .and.  pri  <>  'A' 

okl  =  »Y* 
endif 
if  ok  =  'Y'  .and.  pri  =  'A* 

clear 

3  7,34  SAY  "NOTICE" 

3  8,31  SAY  " " 

3  10,10  SAY  "A  priority  code  of  °A'  requires  NPS  Superintendent  approval." 

set  color  to  Smscolor 

3  14,18  SAY  "Have  you  obtained  approval  (Y/N)?" 

3  14,53  GET  okl  picture  "3!" 

set  color  to  Sccolor 

read 
endif 
if  ok  =  "Y1  .and.  okl  =  »Y» 

public  ms_code, priority 

good  =  .F. 

do  case 

case    pri    =    'A' 
ms_code    =    'W* 
priority    =    '08' 
good    =    .T. 
case    pri    =    'B' 
ms_code    =    *T' 
priority    =    '10' 
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good    =    .  T. 
case    pri    =    *C' 
ms_code    =    '  T' 
priority   =    *15' 
good    =    .T. 
endcase 
if    good 

return 
endif 
endif 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x   Module  Name:   GET_RDD.PRG  X 

X  X 

x   Author:  Tom  Trotter  x 

x  x 
X   Purpose:   This  module  queries  the  user  for  a  "required  delivery  date."     x 

X            It  will  accept  RDD  values  from  1  to  366.  If  the  user  opts        x 

X            to  specify  an  RDD,  RDD_YES  will  be  given  a  value  of  .T.,  and     X 

X            the  memory  variable  RDD  will  be  assigned  a  value  (1-366).        X 

X  X 

x   This  module  is  called  by:  F0RM_0RD.PRG  X 

x                           0PN_0RDR.PRG  * 

X                            PUB_ORD.PRG  X 

x                           STK_ORDR.PRG  * 

X                            XP0R_0RD.PRG  X 

x  x 

x   This  module  calls:   N  /  A  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

public  rdd_yes,rdd 
rdd  =  1 


ans 


i  i 


do  while  .T. 
rdd_yes  =  .F. 

3  6,24  SAY  "REQUIRED  DELIVERY  DATE  (RDD)" 

9  8,16  SAY  "This  is  an  optional  3  digit  Julian  date  when  the" 

3  9,16  SAY  "material  or  service  is  required.  It  is  used  to" 

3  10,16  SAY  "assist  in  the  placement  of  the  order." 

set  color  to  Smscolor 

3  12,22  SAY  "Desire  to  specify  an  RDD  (Y/N):" 

3  12,55  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  =  'Y' 

set  scoreboard  on 

rdd_yes  =  . T . 

ok  =  ■  ' 

3  14,30  SAY  "Enter  RDD:" 

3  14,42  GET  rdd  picture  "fit"  range  1,366 

read 

set  scoreboard  off 

3  14,42  SAY  rdd  picture  "##»" 

set  color  to  Smscolor 

3  16,30  SAY  "RDD  Correct  (Y/N):" 

3  16,49  GET  ok 

set  color  to  Sccolor 

read 

if  upper(ok)  =  'Y' 
return 

endif 
else 

return 
endif 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

x   Module  Name:  IN_P0N0.PRG  x 

X  X 

X  Author:  Tom  Trotter                                                      X 

x  x 

X  Purpose:   This  module  permits  the  user  to  write  a  purchase  order          X 

X  number  into  the  PONO  field  of  the  ITEM.dbf.   This  cannot         X 

X  be  done  at  the  time  the  requisition  is  originated,               X 

X  because  the  PONO  is  not  then  known.                             X 

x  x 

x  This  module  is  called  by:   MAIN.PRG                                       x 

x  x 

X  This  module  calls:   N  /  A                                                 X 

X  X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  »Y» 

clear 

3  6,23  SAY  "INPUT  PURCHASE  ORDER  NUMBER  (P0#)n 

3  7,23  SAY  " n 

3  9,11  SAY  "Once  a  POf  is  received  from  supply,  this  program  permits" 

3  10,11  SAY  "entry  of  the  POf  for  each  item  ordered.   Since  not  all" 

3  11,11  SAY  "items  on  the  original  requisition  may  have  been  ordered" 

3  12,11  SAY  "by  supply  on  the  same  purchase  order,  you  are  requested" 

3  13,11  SAY  "to  separately  confirm  each  item  on  the  purchase  order." 

set  color  to  Smscolor 

3  16,30  SAY  "Continue  (Y/N)?n 

3  16,47  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  'Y* 

return 
endif 
ans  =  *  ' 
do  while  .T. 
clear 

key  =  •         ■ 
3  1,33  SAY  "ENTER  DATA" 

3  2  33  SAY  " " 

3  3^22  SAY  "Requisition  #  :n 

3  3,39  GET  key  picture  "3#f#f####" 

3  4,26  SAY  "(Blank  ends  process)" 

read 

if  key  =  •  • 

return 
endif 

tempid  =  '         ' 
3  6,22  SAY  "Purchase  Order  #:" 
3  6,41  GET  tempid  picture  "3#f######" 
set  color  to  Smscolor 
3  8,27  SAY  "Correct  (Y/N)?" 
3  8,43  GET  ans 
set  color  to  Sccolor 
read 

if  upper(ans)  =  *Y* 
select  D 
use 

use  Sitem  index  8reqno_i , 8pono_i 
find  Skey 

if  eof()  .or.  bof() 
3  8,0  clear 

3  10,29  SAY  "REQUISITION  NOT  IN  FILE" 

3  12,14  SAY  "Please  double  check  the  requisition  #  and  try  again." 
set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
else 

do  while  D->reqno  =  key  .and.  .not.  eof ( ) 
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ans2  =  '  ■ 

clear 

9  7,18  SAY  "Requisition  *:" 

3  7,34  SAY  D->reqno 

3  9,18  SAY  "Item:" 

3  9,25  SAY  D->descrip 

9  11,18  SAY  "Quantity:" 

3  11,29  SAY  D->quant 

3  13,18  SAY  "Unit  Price:" 

3  13,31  SAY  D->uprice 

set  color  to  Smscolor 

3  18,14  SAY  "Is  this  item  on  purchase  »" 

3  18,42  SAY  tempid 

3  18,53  SAY  "(Y/N)?" 

3  18,61  GET  ans2 

set  color  to  Sccolor 

read 

if  upper(ans2)  =  *Y' 

replace  pono  with  M->tempid 
endif 
skip 
enddo 
endif 
endif 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X   Module  Name:   IN_RCVD.PRG  X 

X  X 

x  Author:  Tom  Trotter  x 

x  x 

X  Purpose:   This  module  permits  notation  of  receipt  of  items  in  the  x 

X            RCVD  field  in  the  ITEM.dbf.   The  item  may  be  x 

X            specified  by  requisition  t  (REQNO)  or  purchase  order  f  X 

X             (PONO)  x 

x  x 

x  This  module  is  called  by:   MAIN.PRG  x 

x  x 

X  This  module  calls:   N  /  A  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  'Y' 

clear 

9  3,30  SAY  "INPUT  RECEIPT  STATUS" 

9  4,30  SAY  " " 

3  6,16  SAY  "You  will  be  given  the  opportunity  to  indicate  if" 

3  7,16  SAY  "specific  items,  currently  not  marked  as  received," 

3  8,16  SAY  "have  now  been  received.  Items  reviewed  will  be" 

3  9,16  SAY  "grouped  by  requisition  number  or  purchase  order" 

3  10,16  SAY  "number  at  your  option." 

set  color  to  Smscolor 

3  12,30  SAY  "Continue  (Y/N)?n 

3  12,47  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  *Y* 

return 
endif 

do  while  .T. 
clear 

set  scoreboard  on 

3  7,22  SAY  "PREPARING  TO  MARK  ITEMS  RECEIVED" 
ansl  =  1 

3  16,32  SAY  "Select:" 
3  16,41  GET  ansl  picture  "#"  range  1,3 

3  17,22  SAY  " " 

3  18,22  SAY  "[  1.  Show  by  requisition  f  ]" 
3  19,22  SAY  "[  2.  Show  by  purchase  order  #  ]" 
3  20,22  SAY  "[   3.  Return  to  main  menu       ]" 

3  21,22  SAY  " " 

read 

set  scoreboard  off 

do  case 

case  ansl  =  1 

kind  =  "Requisition   #   " 
select  D 
use 

use  Sitem  index  8reqno_i 
field  =  "D->reqno" 
case  ansl  =  2 

kind  =  "Purchase  Order  #" 
select  D 
use 

use  Sitem  index  &pono_i 
field  =  "D->pono" 
case  ansl  =  3 
return 
endcase 
ans2  =  'Y' 
key  =  '         ■ 
clear 

3  9,15  SAY  "Enter" 
3  9,22  SAY  kind 
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a  9,38  SAY  ":" 

9  9,41  GET  key  picture  "a«f###f#f" 
3  11,15  SAY  "Note  -  Blank  ends  process" 
read 

if  key  =  ■         ■ 
return  to  master 
endif 

set  color  to  Smscolor 
3  14,28  SAY  "Correct  (Y/N)?" 
a  14,44  GET  ans2 
set  color  to  Sccolor 
read 

if  upper(ans2)  =  *Y' 
find  Skey 

if  eof()  .or.  bof ( ) 
3  14,0  clear 
3  14,24  SAY  kind 
3  14,40  SAY  »  not  on  file." 
a  16,14  SAY  "Please  double  check  the  " 
3  16,38  SAY  kind 
3  16,54  SAY  "  and  try  again." 
set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
clear 
else 

counter  =  0 

do  while  Sfield  =  key  .and.  .not.  eof ( ) 
if  .not.  rcvd 

counter  =  counter  +  1 

ans3  =  '  • 

clear 

3  3,18  SAY  "The  following  item  shown  as  not  received" 

3  7,11  SAY  "Requisition  #:" 

3  7,27  SAY  reqno 

3  9,11  SAY  "Purchase  Ord  #:" 

3  9,28  SAY  pono 

3  11,11  SAY  "Item:" 

3  11,18  SAY  descrip 

3  13,11  SAY  "Quantity:" 

3  13,22  SAY  quant 

3  13,39  SAY  "Unit  Price:  $" 

3  13,53  SAY  uprice 

set  color  to  Smscolor 

3  19,21  SAY  "Has  this  item  been  received  (Y/N)?" 

3  19,56  GET  ans3 

set  color  to  Sccolor 

read 

if  upper(ans3)  =  *Y' 

replace  rcvd  with  .T. 
endif 
endif 
skip 
enddo 

if  counter  =  0 
clear 
if  ansl  =  1 

3  12,18  SAY  "All  items  for  requisition  «" 
a  12,47  SAY  Skey 
else 

3  12,16  SAY  "All  items  for  purchase  order  #" 
3  12,47  SAY  Skey 
endif 

3  14,18  SAY  "have  been  previously  marked  as  received." 
set  color  to  Smscolor 
wait  Swmsg 

set  color  to  Sccolor 
endif 
endif 
endif 
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clear 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X      Module    Name:       MAIN.PRG  X 

X  X 

x  Author:  Tom  Trotter  x 

x  x 

X  Purpose:   Since  this  module  is  the  first  to  be  invoked,  it  is  refered      x 

X            to  in  dBASE  III  as  the  master  module.  It  sets  up  the  X 

X            initialization  of  key  memory  variables  and  presents  the  x 

X            main  menu  for  program  selection.  X 

x  x 

X  This  module  is  called  by:    N  /  A  x 

X  X 

X  This  module  calls:   WELCOME. PRG  x 

X                      CONFIG. PRG  X 

X                      GET_DATE.PRG  X 

x                     NEW_ORDR.PRG  x 

x                      IN_P0N0.PRG  X 

X                      IN_RCVD.PRG  X 

X                      SHW_NRI.PRG  x 

x                      DISP_REQ.PRG  x 

X                      CHG_PRIC.PRG  X 

x                      NEW_SUPL.PRG  x 

X                      NEW_ACNT.PRG  x 

x                      QUIT. PRG  x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

set  help  off 
set  talk  off 
set  delete  on 
set  safety  off 
set  console  on 
set  escape  off 
do  welcome 
do  config 
do  get_date 
do  while  .T. 

clear  all 

public  today, Julian, wmsg 

Press  any  key  to  continue...1" 
public  sup, sname_s, supno_s,  template, tempord 

public  item, reqno_i , pono_i , req, reqno_r,accno_r,accnt,aname_a ,accno_a 
restore  from  date.var  additive 
public  c_dept, c_bldg, c_room, c_phone 
restore  from  config. var  additive 
sup  =  c_sdrv  +  "sup" 
sname_s  =  c_sdrv  +  "sname_sn 
supno_s  =  c_sdrv  +  "supno_s" 
template  =  c_adrv  +  "template" 
tempord  =  c_adrv  +  "tempord . dbf" 
item  =  c_adrv  +  "item" 

i" 


reqno_i 

=  c_adrv  +  "reqno. 

pono_i 

:  c_adrv  +  "pono_i 

req  =  c. 

_adrv  +  "req" 

reqno_r 

=  c_adrv  +  "reqno 

accno_r 

=  c_adrv  +  "accno. 

accnt  = 

c_adrv  +  "accnt" 

aname_a 

=  c_adrv  +  "a  name. 

accno  a 

=  c  adrv  +  "accno 

fy_id  =  c_adrv  +  "fy.id" 

public  fy 

restore  from  Sfy_id  additive 

public  ccolor,mscolor, errcolor 

if  c_clrmon 

store  "GR+/B,W+/  ,B+"  to  ccolor 
store  "GR+/  , GR+/  "  to  mscolor 
store  "R+"  to  errcolor 
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else 

store  "W+/  ™  to  ccolor 

store  "W+/  "  to  mscolor 

store  "W+/  n  to  errcolor 
endif 

set  color  to  Sccolor 
choice  =  0 
set  scoreboard  on 
clear 
9  3,10  SAY  "=============================================================" 

a  4,10  SAY  n=  =  " 

3  5,10  SAY  w=  SUPPLY   REQUISITION   DATABASE  =M 

3  6,10  SAY  *»=  =n 

3  7,10  SAY  "=============================================================" 

3  8,10  SAY  "=  =  " 

3  9,10  SAY  "=  0.   Exit  =" 

3  10,10  SAY  "=  1.   Place  an  order  =  » 

3  11,10  SAY  "=  2.   Update  files  with  purchase  order  #  =n 

3  12,10  SAY  '•=  3.   Mark  items  received  =n 

3  13,10  SAY  M=  4.   List  items  not  yet  received  =" 

3  14,10  SAY  "=  5.   Display  a  specific  requisition  =n 

3  15,10  SAY  n=  6.   Change  an  item  price  =" 

3  16,10  SAY  n=  7.   Enter  a  new  supplier  =n 

3  17,10  SAY  n=  8.   Create  a  new  account  =" 

3  18,10  SAY  "=  =" 

3  19,10  SAY  "==================Your  choice  >  <============================" 

319,41  GET  choice  picture  '#*  range  0,8 

read 

set  scoreboard  off 

do  case 

case  choice  =  0 

do  quit 
case  choice  =  1 

do  new_ordr 
case  choice  =  2 

do  in_pono 
case  choice  =  3 

do  in_rcvd 
case  choice  =  4 

do  shw_nri 
case  choice  =  5 

do  disp_req 
case  choice  =  6 

do  chg_pric 
case  choice  =  7 

do  new_supl 
case  choice  =  8 
do  new_acnt 
endcase 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

X  Module  Name:   NEW_ACNT.PRG                                               x 

X  X 

X  Author:  Tom  Trotter                                                      X 

x  x 

x  Purpose:   This  module  allows  the  user  to  set  up  a  new  account  by          X 

X  appending  a  blank  record  to  the  ACCNT . dbf  and  filling           x 

X  in  all  fields.                                                  X 

x  x 

X  This  module  is  called  by:   MAIN.PRG                                       X 

X  SEL_ACNT                                       X 

X  X 

X  This  module  calls:   N  /  A                                                X 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  *  * 

do  while  ans  <>  *Y' 

clear 

3  3,28  SAY  "CREATE  A  NEW  ACCOUNT" 

3  4,28  SAY  n " 

3  6,14  SAY  "In  order  to  enter  a  new  account  you  must  have" 

3  7,14  SAY  "the  following  information  available  at  this  time:" 

3  9,17  SAY  "Account  Name" 

3  10,17  SAY  "Account  #  (assigned  by  NPS  Comptroller)" 

3  11,17  SAY  "Serial  #  range  assigned  to  account" 

3  12,17  SAY  "Is  it  a  research  account?" 

3  14, 14  SAY  "WARNING  -  If  you  do  not  understand  any  of  the" 

3  15,24  SAY  "above  items,  seek  assistance  and  do" 

3  16,24  SAY  "not  continue  further  at  this  time." 

3  19,27  SAY  "Continue  (Y/N)?n 

3  19,44  GET  ans  picture  "3!" 

read 

if  upper(ans)  =  'N* 
return 

endif 
enddo 
select  A 
use 

use  Saccnt  index  &aname_a , &accno_a 
append  blank 
do  while  .T. 

ans  =  '  * 

clear 

3  1,25  SAY  "INPUT  NEW  ACCOUNT" 

3  2,25  SAY  " " 

3  5,22  SAY  "Account  Name:" 

3  5,37  GET  aname  picture  "3!" 

3  7,22  SAY  "Account  Number:" 

3  7,39  GET  accno  picture  "3!" 

3  9,22  SAY  "Code:" 

3  9,29  GET  code  picture  "3!" 

3  11,22  SAY  "Research  Account  (T/F):" 

3  11,47  GET  research  picture  "L" 

3  13,22  SAY  "Requisition  Serial  #  Range  -   From:" 

3  13,59  GET  loserno  picture  "9999" 

3  14,52  SAY  "To:" 

3  14,59  GET  hiserno  picture  "9999" 

3  15,22  SAY  "Last  Serial  t  Used:" 

3  15,43  GET  lastused  picture  "####" 

3  16,22  SAY  "(leave  blank  if  account  never  used  yet)" 

read 

if  lastused  =  *  ' 

replace  lastused  with  loserno 

endif 

3    19,27    SAY    "Correct    (Y/N)?" 

3    19,43    GET   ans 

read 
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if   upper(ans)    =    *Yf 

return 
endif 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X  Module  Name:   NEW_0RDR . PRG  * 

x  x 

x  Author:  Tom  Trotter  X 

x  x 

X  Purpose:   This  module  serves  as  the  menu  driver  for  the  activities  X 

X            required  in  the  generation  of  new  orders.   It  assigns  a  X 

X             value  to  the  public  memory  variable  TYPEORDR  based  upon  X 

X            the  user's  selection.  X 

X  X 

X  This  module  is  called  by:   MAIN. PRG  X 

X  X 

X  This  module  calls:   CALC_REQ.PRG  X 

X                      F0RM_0RD.PRG  X 

X                      0PN_ORD.PRG  X 

X                      PUB_ORD.PRG  X 

X                      RSS_ORD.PRG  X 

X                      SEL_ACNT.PRG  X 

X                      STK_ORD.PRG  X 

x                     XP0R_0RD.PRG  x 

X  X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

do  while  .T. 
order  =  7 
clear 

set  scoreboard  on 
3  3,29  SAY  "PLACE  AN  ORDER" 

3  5,10  SAY  "The  purpose  of  this  program  is  to  generate  the  appropri" 
9  5,65  SAY  "ate" 

3  6,10  SAY  "supply  forms  (DD  1348-6  &/or  SF  36)  to  place  an  order." 
9  9,24  SAY  "Select  the  type  of  order" 
3  11,10  SAY  "1.   Open  Purchase" 

3  12,10  SAY  "2.   Standard  stock  items  from  NPS  RSS,  NSC  Oakland,  or  GSA" 
a  13,10  SAY  "3.   Standard  forms  from  NSC  Oakland" 
3  14,10  SAY  "4.   Publications  from  NAVPUBFORMCEN  Phil" 
3  15,10  SAY  "5.   $$  Reimbursement  to  NPS  Ready  Supply  Store" 
3  16,10  SAY  "6.   Transportation  of  material  (e.g.  Federal  Express)" 
3  17,10  SAY  "7.   Return  to  main  menu" 
3  20,26  SAY  "Your  order:" 
3  20,41  GET  order  picture  "#"  range  1,7 
read 

set  scoreboard  off 
public  typeordr, service 
service  =  substr(fy, 2, 1 ) 
typeordr  =  ■  ■ 

if  order  <>  6  .and.  order  <>  7 
do  sel_acnt 
do  calc_req 
endif 
do  case 

case  order  =  1 

typeordr  =  'OPEN' 

do  opn_ordr 
case  order  =  2 

typeordr  =  'STOCK' 

do  stk_ordr 
case  order  =  3 

typeordr  =  'FORM' 

do  form_ord 
case  order  =  4 

typeordr  =  'PUB' 

do  pub_ord 
case  order  =  5 

typeordr  =  'RSS$' 

do  rss_ord 
case  order  =  6 

typeordr  =  'XPORT' 
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do  sel_acnt 
do  calc_req 
do  xpor_ord 
case  order  =  7 

return  to  master 
endcase 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x   Module  Name:   NEW_SUPL.PRG  X 

X  X 

X   Author:  Tom  Trotter  X 

X  X 

x  Purpose:   This  module  allows  the  user  to  enter  a  new  supplier  by          X 

x  appending  a  blank  record  to  the  SUP.dbf  and  filling  in          X 

x  all  fields.                                                  x 

x  x 

x  This  module  is  called  by:   MAIN.PRG                                       X 

x  SEL_SUPL.PRG                                 x 

x  x 

X  This  module  calls:   N  /  A                                                X 

X  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  »  ■ 

do  while  ans  <>  'Y' 

clear 

3  4,26  SAY  "INPUT  A  NEW  SUPPLIER" 

3  5,26  SAY  » n 

3  7,12  SAY  "In  order  to  input  a  new  supplier,  you  must  have  the" 

3  8,12  SAY  "following  information  available  at  this  time:" 

3  10,29  SAY  "Supplier  Name" 

3  11,29  SAY  "Address" 

3  12,29  SAY  "Phone  f" 

3  14,12  SAY  "The  phone  number  is  mandatory.  Do  not  proceed  unless" 

3  15,12  SAY  "you  are  ready  to  enter  the  above  information." 

3  18,25  SAY  "Continue  (Y/N)  ?" 

3  18,43  GET  ans  picture  "3!" 

read 

if  ans  =  'N' 
return 

endif 
enddo 
select  B 
use 

use  Ssup  index  Ssupno_s, &sname_s 
append  blank 
do  while  .T. 

ans  =  ■  ' 

clear 

3  3,27  SAY  "INPUT   NEW   SUPPLIER" 

3  4,27  SAY  " " 

3  6,15  SAY  "Name:" 

3  6,23  GET  sname 

3  8,15  SAY  "Address:" 

3  8,25  GET  addr 

3  10,15  SAY  "City:" 

3  10,22  GET  city 

3  10,38  SAY  "State:" 

3  10,46  GET  state  picture  "3!" 

3  10,52  SAY  "Zip:" 

3  10,58  GET  zip 

3  12,15  SAY  "Phone:  (    )n 

3  12,23  GET  areacode  picture  "3###" 

3  12,28  GET  fone  picture  "3##t-#*##" 

3  14,15  SAY  "Note  -  Phone  f  is  mandatory" 

read 

3  16,26  SAY  "Is  this  correct?" 

3  16,44  GET  ans  picture  "3!" 

read 

tempid    =    substrC f one, 4) 

if   val(tempid)    >    9970 
tempid    =    '0000' 

endif 

new    =    recnoO 

if   ans   =    'Y' 
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tempid  =  str(val( tempid)  +  1,4) 

go  top 

find  Stempid 

if  eof  ()  .or.  bof  () 

go  new 

replace  supno  with  tempid 

3  14,0  clear 

3  16,24  SAY  "Assigned  Supplier  $ 

3  16,46  SAY  supno 

wait  &wmsg 

return 
endif 
endif 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x  Module  Name:   0PN_0RDR.PRG  X 

X  X 

x  Author:  Tom  Trotter  X 

X  X 

x  Purpose:   This  module  coordinates  the  activities  necessary  to  make  an  X 

X            open  purchase.   It  invokes  several  subordinate  modules  to  X 

X            gather  various  user  inputs.   If  only  one  item  is  being  ordered   x 

X            and  the  description  of  that  item  will  fit  in  the  space  x 
X            allowed  on  a  DD-1348  (  <  23  characters),  then  a  DD-1348  will     x 

X            be  generated.   If  more  than  one  item  is  being  ordered,  or  if     X 

X            the  item's  description  is  lengthy,  a  SF-36  will  be  prepared  x 

X            in  addition  to  a  DD-1348.  X 

X  x 

x  This  module  is  called  by:   MAIN.PRG  X 

X  X 

X  This  module  calls:   SEL_SUPL.PRG  X 

x                     GET_RDD.PRG  x 

x                     GET_PRI.PRG  x 

X                      GET_CAT.PRG  X 

X                      BUY2_ITM.PRG  X 

X                       PRTSF36.PRG  X 

X                      PRT1348o.PRG  X 

x                      SUP_MEMO.PRG  X 

x                     FILE_REQ.PRG  x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  ■  * 

clear 

9  3,27  SAY  "OPEN  PURCHASE  REQUISITION" 

9  4,27  SAY  " " 

3  6,12  SAY  "This  program  prepares  the  necessary  documents  to  execute" 

3  7,12  SAY  "an  open  purchase  request.  A  DOD  1348  (6  part)  will  always" 

3  8,12  SAY  "be  produced,  and  if  the  item  description  is  too  long" 

3  9,12  SAY  "(greater  than  22  characters),  or  if  there  is  more  than" 

3  10,12  SAY  "one  item  being  ordered,  a  SF  36  will  also  be  prepared." 

3  11,12  SAY  "If  the  total  order  value  exceeds  $1,000.,  a  memorandum" 

3  12,12  SAY  "will  be  prepared  listing  at  least  2  alternative  sources," 

3  13,12  SAY  "unless  this  procurement  request  is  being  accompanied  by" 

3  14,12  SAY  "a  sole-source  justification.  A  maximum  of  10  separate" 

3  15,12  SAY  "line  items  may  be  ordered  on  a  single  requisition." 

3  17,30  SAY  "Continue  (Y/N)?" 

3  17,47  GET  ans 

read 

if  upper(ans)  <>  'Y' 

return 
endif 

do  sel_supl 
do  get_rdd 
do  get_pri 
do  get_cat 
public  counter 
counter  =  1 
do  buy2_itm 

public  docid, signal , fund, sf 36 
docid  =  'A0E' 
signal  =  'A' 
fund  =  '2S' 
select  E 
use  Stempord 
go  bottom 
if  recnoO  =  1  .and.  len( trim( E->descrip) )  <  23  .and.  E->descrip2  =  '  * 

sf36  =  .F. 
else 

sf36  =  .T. 

do  prtsf36 
endif 
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do  prtl348o 
do  file_req 
if  totval  >  999.99 

do  sup_memo 
endif 
select  E 
use 

erase  Stempord 
return  to  master 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

X  Module  Name:   PRNT_SMO.PRG  X 

X  X 

X  Author:  Tom  Trotter  x 

X  X 

x  Purpose:   This  module  prepares  a  supplemental  memo  to  NPS  Supply  x 

X            memo  to  accompany  an  open  purchase  requisition  if  the  total  x 

X            value  of  all  items  on  the  requisition  exceeds  $1,000.  The  X 

X            purpose  of  the  memo  is  to  offer  2  alternative  sources  for  x 

X            the  requested  material  as  required  by  Naval  Supply  regulations,  x 

X            except  in  the  case  of  orders  accompanied  by  a  sole  source  X 

x            justification.  x 

x  x 

X  This  module  is  called  by:   SUP_MEMO.PRG  X 

x  x 

x  This  module  calls:   N  /  A  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3  1,7  SAY  "From:" 

a  1,14  SAY  c_dept 

3  1,18  SAY  "Department" 

3  1,56  SAY  today 

3  3,7  SAY  "To:  NPS  Supply" 

3  5,7  SAY  "Subj :  Additional  sources  for  requisition  t™ 

3  5,50  SAY  reqno 

3  7,7  SAY  "1.   Due  to  the  high  value  of  subject  requisition,  the  f" 

3  7,62  SAY  "ollowing" 

3  8,7  SAY  "multiple  supply  sources  are  submitted:" 

3  12,17  SAY  snamel 

3  12,45  SAY  "Phone:" 

3  12,53  SAY  areacodel 

3  12,57  SAY  fonel 

a  13,17  SAY  addrl 

a  14,17  SAY  cityl 

3  14,37  SAY  statel 

3  14,44  SAY  zipl 

3  17,17  SAY  sname2 

3  17,45  SAY  "Phone:" 

3  17,53  SAY  areacode2 

a  17,57  SAY  fone2 

a  18,17  SAY  addr2 

3  19,17  SAY  city2 

3  19,37  SAY  state2 

3  19,44  SAY  zip2 

3  23,17  SAY  sname3 

3  23,45  SAY  "Phone:" 

3  23,53  SAY  areacode3 

3  23,57  SAY  fone3 

3  24,17  SAY  addr3 

3  25,17  SAY  city3 

3  25,37  SAY  state3 

3  25,44  SAY  zip3 

3  29,7  SAY  "2.   Department  points  of  contact  for  this  request  are:" 

3  31,23  SAY  pocl 

3  31,48  SAY  extl 

3  33,23  SAY  Poc2 

a  33,48  SAY  ext2 

a  34,1   SAY  chr(12) 

set  device  to  screen 

return 


135 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x  Module  Name:   PRTSF36.PRG  x 

x  x 

x  Author:  Tom  Trotter  X 

x  x 

X  Purpose:   This  module  contains  loop  which  will  read  one  item  at  a  time  X 

X  from  the  TEMPORD.dbf  and  generate  an  SF-36 .   The  TEMPORD.dbf  x 

X  is  used  as  the  information  source  because  it  contains  the  x 

X  fields  of  DESCRIP2  and  DESCRIP3  which  are  not  permanently  X 

X  filed  in  the  ITEM.dbf.   This  allows  a  fuller  description  to  x 

X  be  used  in  the  generation  of  the  documents,  yet  provides  for  x 

X  a  more  economical  filing  structure  for  long  term  files.  Once  x 

X  the  user  states  that  an  acceptable  SF-36  has  been  generated,  X 

X  the  TEMPORD.dbf  is  erased.  This  module  will  produce  an  SF-36  X 

x  containing  from  1  to  12  line  items.  x 

x  x 

X  This  module  is  called  by:   0PN_0RDR.PRG  x 

X  X 

X   This  module  calls:    WARN_PRT.PRG  X 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  warn_prt 

ans  =  '  • 

do  while  ans  <>  'N* 

C  X  63  P 

a  10,26  SAY  "LOAD  SF-36  INTO  PRINTER" 

3  12  37  SAY  nSn 

9  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 

set  device  to  print 

3  1,0  SAY  »  • 

wait  " 

reql  =  substrC reqno, 1 , 4) 

req2  =  substr( reqno, 5, 4) 

ref  =  "N62271/"  +  reql  +  ■/•  +  req2 

3  1,51  SAY  ref 

3  1,72  SAY  "1     1" 

who  =  trim( B->sname) 

where  =  trim( B->addr)  +  ',  ■  +  trim( B->city)  +  ',  ■  +  trim( B->state)  ; 

+  ■  ■  +  (B->zip) 
who  =  who  +  ' ,  *  +  where 
3  3,1  SAY  who 
select  E 
go  top 
marker  =  7 
do  while  .not.  eof (  ) 

3  marker, 3  SAY  E->itemno 

3  marker, 8  SAY  E->descrip 

3  marker, 49  SAY  E->quant  picture  "#####" 

3  marker, 57  SAY  E->unit 

3  marker, 61  SAY  E->uprice  picture  "#####.##" 

amount  =  E->quant  x  E->uprice 

3  marker, 71  SAY  amount  picture  "#####.##" 

if  descrip2  <>  '  ' 
marker  =  marker  +  1 
3  marker, 8  SAY  E->descrip2 

endif 

if  descrip3  <>  *  ' 
marker  =  marker  +  1 
3  marker, 8  SAY  E->descrip3 

endif 

marker    =    marker   +    2 

skip 


tt 


enddo 

3    marker, 7  0    SAY 

marker    =    marker   +    1 

3    marker, 35    SAY    "TOTAL" 

3    marker, 70    SAY    "$" 
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3  marker, 71  SAY  totval  picture  "##,###. »fn 

3  16,1  SAY  chr(13) 

set  device  to  screen 

clear 

3  12,21  SAY  "Do  you  want  to  reprint  the  SF-36?" 

3  12,56  GET  ans  picture  "3!" 

read 
enddo 
return 
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X  X 

x  Module  Name:   PRT1348a.PRG  * 

X  X 

x  Author:  Tom  Trotter                                                      X 

x  x 

x  Purpose:   This  module  contains  a  loop  which  will  print  memory  variables    x 

X  to  the  appropriate  spaces  on  a  DD-1348.  It  is  designed  to        X 

x  handle  slight  variations  in  format  based  upon  the  value  of       X 

x  TYPEORDR.                                                    x 

X  X 

x  This  module  is  called  by:   STK_ORDR.PRG                                 x 

X  F0RM_0RD.PRG                                   X 

X  PUB_0RD.ORG                                    X 

X  RSS_0RD.PRG                                    X 

X  X 

X  This  module  calls:   WARN_PRT.PRG                                          X 

x  x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

do  warn_prt 
ans  =  *  ' 

do  while  ans  <>  'N' 
clear 

3  10,31  SAY  "LOAD  PRINTER" 
3  12  37  SAY  "&" 

3  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  »  • 
wait  " 

3  1,6  SAY  sendto 
3  1,36  SAY  "(62271)  NPS," 
dept  =  trim(c_dept)  +  '  Dept, * 
3  1,49  SAY  dept 

ccode  =  'Code  •  +  trim( A->code) 
3  1,59  SAY  ccode 
3  2,36  SAY  "Rm" 
3  2,39  SAY  c_room 
3  2,45  SAY  "Bldg" 
3  2,50  SAY  c_bldg 
3  2,56  SAY  c_phone 
if  typeordr  =  'STOCK' 

3  4,1  SAY  nomenl 

3  5,1  SAY  nomen2 

3  5,25  SAY  docid 
endif 

3  5,30  SAY  route 
if  typeordr  =  'RSS$' 

3  5,38  SAY  money 
else 

3  5,34  SAY  ms_code 

snuml  =  substrCstknum, 1 , 4) 

snum2  =  substrCstknum, 5 , 2 ) 

snum3  =  substrCstknum, 7 , 3 ) 

snum4  =  substrCstknum, 10 , 4) 

snum  =  snuml  +  '    '  +  snum2  +  '  '  +  snum3  +  '  '  +  snum4 

3  5,37  SAY  snum 

3  5,59  SAY  unt 

3  5,63  SAY  qunt  picture  "#####" 
endif 

3  8,1  SAY  "X  62271" 
reql  =  substr( reqno, 1 , 4) 
req2  =  substr( reqno, 5, 4) 
req3  =  reql  +  '   '  +  req2 
3  8,11  SAY  req3 
3  8,23  SAY  demand 
3  8,25  SAY  service 
3  8,27  SAY  supadr 
3  8,34  SAY  signal 
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if  typeordr  =  'FORM'  .or.  typeordr  =  'PUB* 

9  8,38  SAY  nomenl 
endif 

3  8,64  SAY  rmko 
a  8,66  SAY  n2Hn 
if  typeordr  =  'FORM'  .or.  typeordr  =  'PUB' 

3  9,38  SAY  nomen2 
endif 

a  12,1  SAY  fund 
a  12,5  SAY  dist 
3  12,9  SAY  "0P4" 
3  12,14  SAY  priority 
if  rdd_yes 

a  12,17  SAY  rdd  picture  "###" 
endif 

3  15,4  SAY  "AA" 
do  case 

case  typeordr  =  * RSS$' 

3  15,49  SAY  uprce  picture  "####*. ##" 
case  typeordr  =  'PUB' 

3  15,50  SAY  "N/C" 
otherwise 

3  15,33  SAY  uprce  picture  "#*###.##" 
totval  =  qunt  x  uprce 

a  15,49  SAY  totval  picture  "*#, tit . ##n 
endcase 

3  16,1  SAY  chr(13) 
set  device  to  screen 
clear 

3  12,20  SAY  "Do  you  want  to  reprint  the  DD-1348?" 
3  12,56  GET  ans  picture  "3 ! " 
read 
enddo 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

x  Module  Name:   PRT1348o.PRG  x 

x  x 

x  Author:  Tom  Trotter  x 

x  x 

X  Purpose:   This  module  prints  a  DD-1348  for  open  order  purchases.  It  is     X 

x            designed  to  generate  a  DD-1348  which  may  be  accompanied  by  x 

X             an  SF-36,  or  one  which  can  stand  alone,  depending  upon  the  X 

x            value  of  the  logical  variable  SF36 .  x 

x  x 

x  This  module  is  called  by:   0PN_0RDR.PRG  x 

X  X 

x   This  module  calls:    WARN_PRT.PRG  x 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  warn_prt 
ans  =  '  ' 

do  while  ans  <>  'N' 
clear 

3  10,31  SAY  "LOAD  PRINTER" 
3  12,37  SAY  "8" 

3  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  '  ' 
wait  '  ' 

3  1,1  SAY  B->sname 
3  1,36  SAY  "(62271)  NPS," 
dept  =  trim(c_dept)  +  '  Dept,* 
3  1,49  SAY  dept 

ccode  =  'Code  '  +  trim( A->code) 
3  1,59  SAY  ccode 
3  2,1  SAY  where 
3  2,36  SAY  "Rm" 
3  2,39  SAY  c_room 
3  2,45  SAY  "Bldg" 
3  2,50  SAY  c_bldg 
3  2,56  SAY  c_phone 
3  5,25  SAY  docid 
3  5,34  SAY  ms_code 
if  sf36 

3  5,38  SAY  "SEE  ATTACHED  SF-36" 
else 

3  5,38  SAY  E->descrip 

3  5,59  SAY  E->unit 

3  5,63  SAY  E->quant  picture  "#####" 
endif 

3  8,1  SAY  "X  6  2271" 
reql  =  substrC reqno , 1 , 4 ) 
req2  =  substrC reqno, 5, 4) 
req3  =  reql  +  '   ■  +  req2 
3  8,11  SAY  req3 
3  8,23  SAY  demand 
3  8,25  SAY  service 
3  8,27  SAY  supadr 
3  8,34  SAY  signal 
3  8,64  SAY  rmko 
3  8,66  SAY  "2D" 
3  12,1  SAY  fund 
3  12,5  SAY  dist 
3  12,9  SAY  "0P4" 
3  12,14  SAY  priority 
if  rdd_yes 

3  12,17  SAY  rdd  picture  "###" 
endif 

3  15,4  SAY  "AA" 
if  .not.  SF36 

3    15,33    SAY    uprce    picture    "#tt###.##" 
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endi 
3  15 
3  16 
set 
clea 
3  12 
3  12 
read 
enddo 
return 


f 

,49  SAY  totval  picture  "##,*##.##" 

,1  SAY  chr(13) 

device  to  screen 

r 

,20  SAY  "Do  you  want  to  reprint  the  DD-1348?" 

,56  GET  ans  picture  "3!" 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x   Module  Name:   PRTl348x . PRG  x 

x  x 

x   Author:  Tom  Trotter  x 

x  x 

X   Purpose:   This  module  prints  a  DD-1348  for  transportation  requisitions.  X 

X             It  is  formatted  to  include  a  field  showing  to  whom  the  item  X 

X            is  to  be  sent.  X 

X  X 

X   This  module  is  called  by:   XP0R_0RD.PRG  x 

X  X 

X   This  module  calls:    WARN_PRT.PRG  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  warn_prt 


ans 


i 


do  while  ans  <>  'N1 
clear 

3  10,31  SAY  "LOAD  PRINTER" 
3  12  37  SAY  "&" 

3  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE' 
set  device  to  print 
3  1,0  SAY  '  » 
wait  " 
select  B 
use 

use  &sup  index  &supno_s 
key  =  M->supno 
find  Skey 
sendto  =  B->sname 
3  1,6  SAY  sendto 
3  1,36  SAY  "(62271)  NPS," 
dept  =  trim(c_dept)  +  '  Dept, * 
3  1,49  SAY  dept 

ccode  =  'Code  '  +  trim( A->code) 
3  1,59  SAY  ccode 
3  2,36  SAY  "Rm" 
3  2,39  SAY  c_room 
3  2,45  SAY  "Bldg" 
3  2,50  SAY  c_bldg 
3  2,56  SAY  c_phone 
3  5,25  SAY  docid 
3  5,38  SAY  "Ticket  to:" 
3  5,59  SAY  unt 
3  7,38  SAY  shipto 
3  8,1  SAY  "X  62271" 
reql  =  substrC reqno, 1 , 4) 
req2  =  substr( reqno, 5, 4) 
req3  =  reql  +  '   '  +  req2 
3  8,11  SAY  req3 
3  8,23  SAY  demand 
3  8,25  SAY  service 
3  8,27  SAY  supadr 
3  8,34  SAY  signal 
3  8,38  SAY  addrl 
3  8,64  SAY  rmko 
3  8,66  SAY  "2D" 
3  9,38  SAY  addr2 
3  10,38  SAY  addr3 
3  11,38  SAY  addr4 
3  12,1  SAY  fund 
3  12,9  SAY  "0P4" 
3  12,14  SAY  priority 
3  15,4  SAY  "AA" 

3  15,50  SAY  uprce  picture  "####.##" 
3  16,1  SAY  chr(13) 
set  device  to  screen 
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clear 

9    12,20    SAY    "Do    you   want    to    reprint    the    DD-1348?" 

3    12,56    GET   ans   picture    "a!" 

read 
enddo 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:   PUB_ORD.PRG                                                 X 

X  X 

X  Author:  Tom  Trotter                                                      X 

X  X 

X  Purpose:   This  module  coordinates  the  process  of  ordering  forms           X 

x  from  NAVPUBFORMCEN,  Philadelphia,  PA.                           x 

x  x 

x  This  module  is  called  by:   NEW_0RDR . PRG                                   X 

X  X 

x   This  module  calls:   GET_RDD.PRG  x 

x  GET_CAT.PRG  x 

x  GET_PRI.PRG  x 

x  BUY1_ITM.PRG  x 

x  FILE_REQ.PRG  x 

X  FILE_ITM.PRG  X 

x  x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ans  =  *  * 

clear 

3  8,31  SAY  "PUBLICATION   ORDER" 

3  9,31  SAY  " " 

3  11,13  SAY  "This  program  prepares  the  documents  required  to  order" 

3  12,13  SAY  "publications  from  NAVPUBFORMCEN,  Philadelphia.  " 

3  16,30  SAY  "Continue  (Y/N)?" 

3  16,47  GET  ans 

read 

if  upper(ans)  <>  *Y' 

return 
endif 

public  sendto,supno, route 
sendto  =  '(00288)  NAVPUBFORMCEN  PHILA' 
supno  =  '2222* 
route  =  'NFZ' 
do  get_rdd 
do  get_pri 
do  get_cat 
do  buyl_itm 

public  docid, signal , fund 
docid  =  "AOD' 
signal  =  'D' 
if  uprce  =  0 

fund  =  »Y6' 
else 

fund  =  '2S* 
endif 

do  prtl348a 
do  file_req 
do  file_itm 
return  to  master 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:    QUIT.PRG  X 

X  X 

x  Author:  Norm  Lyons  10/85  x 

X  Modified  by:  Tom  Trotter  12/85  (converted  to  dBASE  III)  x 

x  x 

X  Purpose     :  This  program  terminates  processing  and  returns  x 

X  control  to  the  operating  system.  At  the  end  of  x 

X  each  appropriate  menu,  an  option  to  to  quit  is  X 

X  displayed.  If  the  user  enters  "Q"  to  quit,  the  x 

X  program  ends  and  control  is  returned  to  the  x 

X  operating  system.  x 

X  X 

x  This  module  is  called  by:    MAIN.PRG  x 

X  X 

X  This  module  calls:   N  /  A  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3  5,28  SAY  "End  of  Dialog" 

3  7,10  SAY  "If  you  are  using  floppy  disks,  replace  them  in  their" 

3  9,10  SAY  "protective  jackets.   Do  not  touch  the  surface  of" 

3  11,10  SAY  "the  disk  (the  little  oval  opening  at  the  bottom  of  the" 

3  13,10  SAY  "disk) ." 

set  color  to  Smscolor 

3  22,9  SAY  "Press  any  key  to  return  control  to  the  operating  system" 

set  color  to  Sccolor 

wait  " 

quit 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:   REQ_HDR.PRG                                                 X 

X  X 

X  Author:  Tom  Trotter                                                      X 

X  x 

X  Purpose:   This  module  is  used  by  the  various  modules  which  display        x 

X  requisitions  to  put  a  common  header  on  the  screen.   It          X 

X  has  been  put  into  a  separate  module  in  order  to  avoid           x 

X  code  duplication.                                               x 

X  x 

X  This  module  is  called  by:   DIS1_REQ.PRG                                   x 

x  DIS2_REQ.PRG                                   X 

X  DIS3_REQ.PRG                                 x 

x  x 

X  This  module  calls:   N  /  A                                                 X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

clear 

3  1,5  SAY  "Account  Name:" 

3  1,19  SAY  A->aname 

3  1,51  SAY  "Requisition  #:" 

3  1,66  SAY  C->reqno 

3  2,5  SAY  "Account  #:" 

3  2,16  SAY  C->accno 

3  2,51  SAY  "Priority:" 

3  2,61  SAY  C->pri_code 

3  3,21  SAY  "To:" 

3  3,25  SAY  B->sname 

3  3,51  SAY  "Date:" 

3  3,57  SAY  C->rdate 

3  4,25  SAY  B->addr 

where  =  trim( B->city)  +  *,  '+  B->state  +  '   •  +  B->zip 

3  5,25  SAY  where 

3  7,2  SAY  "  f  Item  Unit  Cost" 

3  7,58  SAY  "Quant   Rcvd   P.O.  t" 

3  8,1  SAY  " " 

3  8,56  SAY  " " 

return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X   Module  Name:   RSS_ORD.PRG  X 

X  X 

x  Author:  Tom  Trotter                                                      x 

X  X 

X  Purpose:   This  module  prepares  a  DD-1348  for  "Money  Value  Only"  as  a       x 

X  method  of  payment  in  response  to  regular  billings  from  the       x 

X  NPS  Ready  Supply  Store  (RSS).                                   X 

X  x 

X  This  module  is  called  by:   NEW_ORDR.PRG                                   X 

X  X 

x  This  module  calls:   GET_CAT.PRG  x 

x  FILE_REQ.PRG  x 

X  PRT1348a.PRG  X 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  ■  ■ 

clear 

3  8,31  SAY  "$$  REIMBURSEMENT  TO  RSS" 

3  9,31  SAY  " " 

3  11,13  SAY  'This  program  prepares  a  DD-1348  for  "money  value  only"' 

3  12,13  SAY  "as  reimbursement  to  the  NPS  RSS." 

3  16,30  SAY  "Continue  (Y/N)?" 

3  16,47  GET  ans 

read 

if  upper(ans)  <>  'Y* 

return 
endif 

public  dist,uprce 
dist  =  *   ■ 
uprce  =  0.00 
ans  =  '  ■ 
clear 
do  while  ans  <>  *Y' 

3  6,32  SAY  "RSS  $$  REIMBURSEMENT" 

3  7  32  SAY  " " 

3  10,33  SAY  "$$  Amount:  $" 

3  10,46  GET  uprce  picture  "####.##" 

3  13,29  SAY  "COG  Symbol  on  billing:" 

3  13,53  GET  dist  picture  "3!" 

read 

3  16,32  SAY  "Correct  (Y/N)?" 

3  16,48  GET  ans  picture  "3!" 

read 
enddo 

public  sendtcsupno,  route,  money,  priority,  rdd_yes,  pri_code 
rdd_yes  =  . F. 

sendto  =  '203J  READY  SUPPLY  STORES' 
supno  =  '0000* 
route  =  'Z9S' 
priority  =  '15* 
pri_code  =  'C 
do  get_cat 

money  =  'MONEY  VALUE  ONLY' 
public  signal, fund 
signal  =  'D' 
fund  =  '2S' 
do  prtl348a 
select  D 
use 

use  Si  tern  index  &reqno_i , 8pono_i 
append  blank 

replace  descrip  with  M->money 
replace  quant  with  1 
replace  rcvd  with  .T. 
use 
do  file_req 
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return    to    master 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:   SEL_ACNT.PRG                                               x 

X  X 

x  Author:  Tom  Trotter                                                      x 

X  X 

x  Purpose:   This  module  allows  the  user  to  access  the  ACCNT.dbf,  X 

X  scrolling  forward  and  backward  until  a  specific  account  X 

X  is  selected  for  use.   If  the  desired  account  is  not  x 

X  already  on  file,  the  user  may  opt  to  create  it  by  invoking  x 

X  NEW_ACNT.PRG  from  within  this  module.  X 

X  X 

X  This  module  is  called  by:   DIS2_REQ.PRG  x 

X                             DIS3_REQ.PRG  x 

X                             NEW_ORDR.PRG  X 

X                             SHH_NRI.PRG  X 

X  X 

X  This  module  calls:    NEW_ACNT.PRG  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  while  .T. 
select  A 
choice  =  4 
clear 

set  scoreboard  on 
3  2,28  SAY  "SELECT  AN  ACCOUNT" 

3  3  22  SAY  " " 

9  4^22  SAY  "[  1.  By  Account  Name  ]" 
9  5,22  SAY  "I  2.  By  Account  Number  1" 
3  6,22  SAY  "[  3.  Enter  New  Account  ]" 
a  7,22  SAY  "[    4.   Return  to  Main  Menu  ]" 

3  8,22  SAY  " " 

a  10,29  SAY  "Your  choice:" 

a  10,43  GET  choice  picture  "#"  range  1,4 

read 

set  scoreboard  off 

aname  =  '  ' 

public  accno 

accno  =  '      * 

do  case 

case  choice  =  1 

use 

3  14,27  SAY  "Account  Name:" 

3  14,42  GET  aname 

3  16,27  SAY  "(Blank  aborts  process)" 

read 

if  aname  =  '  ' 

return  to  master 

endif 

id  =  trim( upper(aname) ) 

use  Saccnt  index  8aname_a, 8accno_a 
case  choice  =  2 

use 

3  14,27  SAY  "Account  Number:" 

3  14,44  GET  accno 

3  16,27  SAY  "(Blank  aborts  process)" 

read 

if  accno  =  '  * 

return  to  master 

endif 

id  =  trim(upper(accno) ) 

use  Saccnt  index  8accno_a,8aname_a 
case  choice  =  3 

do  new_acnt 
case  choice  =  4 

use 

return  to  master 
endcase 
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if  choice  <>  3 
find  Sid 
if  (eof()  .or.  bof ( ) ) 

use 

clear 

3  5,27  SAY  "ACCOUNT  NOT  FOUND" 

3  7/14  SAY. "If  you  believe  this  account  is  in  the  file,  try" 

3  8,14  SAY  "a  shorter  version  of  either  the  account  name  or" 

3  9,14  SAY  "number  (e.g.  if  you  are  unsure  if  the  account" 

3  10,14  SAY  "number  is  R1234  or  R1235,  look  for  R123  instead)." 

set  color  to  Smscolor 

wait  &wmsg 

set  color  to  Sccolor 
endif 
endif 

if  . not .  eof  (  ) 
pick  =  4 
ok  =  .F. 
do  while  .not.  ok 

clear 

set  scoreboard  on 

3  3,22  SAY  "Account  Name:" 

3  3,37  SAY  aname 

3  5,22  SAY  "Account  Number:" 

3  5,39  SAY  accno 

3  7,22  SAY  "Code:" 

3  7,29  SAY  code 

3  9,22  SAY  "Research  Account  (T/F):" 

3  9,47  SAY  research 

3  11,22  SAY  "Requisition  Serial  t  Range  -   From:" 

3  11,59  SAY  loserno 

3  12,52  SAY  "To:" 

3  12,59  SAY  hiserno 

3  14,27  SAY  "Select  an  action:" 

3  14,46  GET  pick  picture  "#"  range  1,5 

3  15,22  SAY  " " 

3  16,22  SAY  "C   1.  Use  this  account  ]" 

3  17,22  SAY  "C   2.  Scroll  to  previous  account  ]" 

3  18,22  SAY  "[   3.  Scroll  to  next  account      ]" 

3  19,22  SAY  "C   4.  Return  to  last  menu         ]" 

3  20,22  SAY  "[   5.  Return  to  main  menu         ]" 

3  21,22  SAY  " " 

read 

set  scoreboard  off 

do  case 

case  pick  =  1 

accno  =  A_>accno 
return 
case  pick  =  2 


if  . not . 
skip  - 
endif 

1 

bof() 

case  pick 
if  . not . 

skip 
endif 

3 
eof() 

case  pick 
ok  =  .T. 

- 

4 

case  pick 

= 

5 

return  t 

o 

master 

en 
endi 
enddo 

endcase 
ddo 

f 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x   Module  Name:   SEL_SUPL . PRG  x 

X  X 

x   Author:  Tom  Trotter  X 

X  X 

x  Purpose:   This  module  allows  the  user  to  access  the  SUPT.dbf,  x 

X            scrolling  forward  and  backward  until  a  specific  supplier  X 

X            is  selected  for  use.   If  the  desired  supplier  is  not  X 

X            already  on  file,  the  user  may  opt  to  enter   it  by  invoking  X 

x            NEW_SUPL.PRG  from  within  this  module.  X 

x  x 

X  This  module  is  called  by.   NEW_ORDR.PRG  X 

x                            SUP_MEMO.PRG  x 

X  X 

x   This  module  calls:    NEW_SUPL.PRG  X 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  while  .T. 
select  B 
choice  =  4 
clear 

set  scoreboard  on 
3  2,28  SAY  "SELECT  A  SUPPLIER" 

3  3,22  SAY  " " 

3  4,22  SAY  "[  1.  By  Supplier  Name  ]" 
3  5,22  SAY  "[  2.  By  Supplier  Number  ]" 
3  6,22  SAY  n[  3.  Enter  New  Supplier  ]" 
9  7,22  SAY  "[    4.   Return  to  Main  Menu   ]" 

a  8,22  SAY  n " 

3  11,29  SAY  "Your  choice:" 

3  11,43  GET  choice  picture  "#■  range  1,4 

read 

set  scoreboard  off 

public  supno 

sname  =  '  ' 


supno 


-    i 


do  case 

case  choice  =  1 

use 

3  14,27  SAY  "Supplier  Name:" 

3  14,42  GET  sname 

3  16,27  SAY  "(Blank  aborts  process)" 

read 

if  sname  =  '  ' 

return  to  master 

endif 

id  =  trim( upper(sname) ) 

use  Ssup  index  8sname_s 
case  choice  =  2 

use 

3  14,27  SAY  "Supplier  Number:" 

3  14,44  GET  supno 

3  16,27  SAY  "(Blank  aborts  process)" 

read 

if  supno  =  *  * 

return  to  master 

endif 

id  =  trim(upper(supno) ) 

use  Ssup  index  &supno_s 
case  choice  =  3 

do  new_supl 
case  choice  =  4 

return  to  master 
endcase 

if  choice  <>  3 
find  Sid 
if  (eof()  .or.  bofO) 
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use 
clear 

9  5,27  SAY  "SUPPLIER  NOT  FOUND" 

3  7,14  SAY  "If  you  believe  this  supplier  is  in  the  file,  try" 
3  8,14  SAY  "a  shorter  version  of  either  the  supplier  name  or" 
3  9,14  SAY  "number  (e.g.  if  you  are  unsure  if  the  supplier" 
3  10,14  SAY  "name  is  Grey  Electric  or  Gray  Electic,  try" 
3  11,14  SAY  "looking  for  »Gr»  instead)." 
set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
endif 

if  . not .  eof  (  ) 
pick  =  4 
ok  =  .F. 

do  while  .not.  ok 
clear 

set  scoreboard  on 
3  2,29  SAY  "SELECTED  SUPPLIER" 
3  5,25  SAY  sname 
3  6,25  SAY  addr 
3  7,25  SAY  city 
3  7,41  SAY  state 
3  7,48  SAY  zip 
3  9,25  SAY  fone 
3  9,48  SAY  "Supplier  #:" 
3  9,61  SAY  supno 

3  14,27  SAY  "Select  an  action:" 
3  14,46  GET  pick  picture  "f"  range  1,5 

3  15,22  SAY  " " 

3  16,22  SAY  "[   1.  Use  this  supplier  ]" 

3  17,22  SAY  "[  2.  Scroll  to  previous  supplier  ]" 
3  18,22  SAY  "[  3.  Scroll  to  next  supplier  ]" 
3  19,22  SAY  "[   4.  Return  to  last  menu  ]" 

3  20,22  SAY  "[   5.  Return  to  main  menu  ]" 

3  21,22  SAY  " " 

read 

set  scoreboard  off 

do  case 

case  pick  =  1 

supno  =  B->supno 
return 
case  pick  =  2 
if  .not.  bof() 

skip  -1 
endif 
case  pick  =  3 
if  . not .  eof  (  ) 

skip 
endif 
case  pick  =  4 

ok  =  .T. 
case  pick  =  5 

return  to  master 
endcase 
enddo 
endif 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X   Module  Name:   SHW_NRI.PRG  X 

X  X 

x  Author:  Tom  Trotter  x 

x  x 

X  Purpose:   This  module  displays  items  which  are  on  file  in  the  ITEMS. dbf  x 

X  shown  as  not  yet  received  (RCVD  field  =  .F.).   The  user  may  x 

X  direct  output  to  the  screen  or  printer.   He  has  the  option  of  x 

X  listing  all  items  marked  as  not  received,  or  he  may  limit  the  x 

X  listing  to  items  from  a  specific  account.   This  module  may  be  X 

X  easily  expanded  to  accomodate  screens  based  upon  date  of  x 

X  order.  X 

X  X 

x  This  module  is  called  by:    MAIN.PRG  X 

X  X 

X   This  module  calls:   WARN_PRT.PRG  X 

X  SEL_ACNT.PRG  x 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  ■  ■ 

clear 

9  7,28  SAY  "LIST  ITEMS  NOT  RECEIVED" 

9  8,28  SAY  " ■ 

3  10,13  SAY  "This  program  generates  a  listing  of  items  ordered  but" 

3  11,13  SAY  "not  yet  received.   The  list  may  be  sent  to  the  screen" 

3  12,13  SAY  "or  printer  at  the  user's  option.   The  search  for  items" 

3  13,13  SAY  "not  received  may  also  be  limited  within  parameters" 

3  14,13  SAY  "provided  by  the  user." 

3  17,29  SAY  "Continue  (Y/N)?n 

a  17,46  GET  ans 

read 

if  upper(ans)  <>  'Y' 

return 
endif 
pick  =  3 
clear 

set  scoreboard  on 

3  5,25  SAY  "Select  Search  Type:" 
3  5,46  GET  pick  picture  "#"  range  1,3 

3  6,12  SAY  " " 

3  7,12  SAY  "[  1.  No  limits  (show  all  not  received  items)  ]" 
3  8,12  SAY  "[  2.  Limit  list  to  specific  account  number  ]" 
3  9,12  SAY  "[   3.   Return  to  main  menu  ]" 

3  10,12  SAY  " " 

read 

if  pick  =  3 

return 
endif 
outpt  =  1 

a  13,29  SAY  "Select  Display:" 
3  13,46  GET  outpt  picture  "#"  range  1,2 

3  14,28  SAY  " " 

3  15,28  SAY  "[   1.   Screen     3" 
3  16,28  SAY  "[   2.   Printer    ]" 

3  17,28  SAY  " " 

read 

set  scoreboard  off 
counter  =  0 
marker  =  0 
value  =  0.00 
totval  =0.00 
totcnt  =  0 
do  case 

case  pick  =  1 
if  outpt  =  2 
prtout  =  .T. 
do  warn_prt 
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clear 

3  10,31  SAY  "LOAD  PRINTER" 
9  12  37  SAY  "&" 

3  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  '  • 
wait  ' * 
else 

prtout  =  . F. 
endif 
clear 

3  2,35  SAY  trim(c_dept)  +  '  Dept' 
3  3,21  SAY  "ITEMS  NOT  RECEIVED  AS  OF" 
3  3,47  SAY  today 

3  4,1  SAY  "  f  Item  Req  *   " 

3  4,57  SAY  "    P.O.  f    Quantity" 

3  5,1  SAY  " " 

3  5,56  SAY  " " 

select  D 

use  Sitem  index  Sreqno_i 
go  top 

do  while  .not.  eof ( ) 
if  .not.  rcvd 

counter  =  counter  +  1 
marker  =  marker  +  1 
value  =  D->quant  *  D->uprice 
totval  =  totval  +  value 
totcnt  =  totcnt  +  D->quant 
3  marker+5,1  SAY  counter  picture  "###" 
3  marker+5,6  SAY  D->descrip 
3  marker+5, 45  SAY  D->reqno 
3  marker+5, 58  SAY  D->pono 

3  marker+5, 69  SAY  D->quant  picture  "#####" 
if  marker  >  14  .and.  .not.  prtout 
marker  =  1 
wait  Swmsg 
3  6,0  clear 
endif 
endif 
skip 
enddo 
if  counter  =  0 

3  10,21  SAY  "ALL  ITEMS  ARE  MARKED  AS  RECEIVED" 
else 

3  marker+8,15  SAY  "Total  items:" 
3  marker+8,28  SAY  totcnt  picture  "##*##" 
3  marker+8,45  SAY  "Total  value:  $" 
3  marker+8,59  SAY  totval  picture  "#,###,###.##" 
endif 
if  prtout 

3  marker+8,70  SAY  chr(12) 
set  device  to  screen 
endif 
case  pick  =  2 
do  sel_acnt 
key  =  A->accno 
if  outpt  =  2 
prtout  =  .T. 
do  warn_prt 

C  1  63  V 

a  10,31  SAY  "LOAD  PRINTER" 

3  12  37  SAY  "8" 

3  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 

set  device  to  print 

3  1,0  SAY  '  ' 

wait  »■ 
else 

prtout  =  .F. 
endif 
clear 
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a  1,28  SAY  "For  Account  f : " 

9  1,43  SAY  key 

3  2,21  SAY  "ITEMS  NOT  RECEIVED  AS  OF" 

3  2,47  SAY  today 

a  4,1  SAY  "  #  Item  Req  # 

3  4,57  SAY  "    P.O.  f    Quantity" 

3  5,1  SAY  " 

3  5,56  SAY  " " 

select  C 

use  Sreq  index  &accno_r 

find  Skey 

if  eof() 

3  8,10  SAY  "No  requisitions  found  for  account  name:" 
3  8,50  SAY  A->name 
else 

do  while  C->accno  =  key  .and.  .not.  eof  () 
key2  =  C->reqno 
select  D 

use  Sitem  index  &reqno_i 
find  Skey2 

do  while  D->reqno  =  key2  .and.  .not.  eof ( ) 
if  .not.  rcvd 

counter  =  counter  +  1 
marker  =  marker  +  1 
value  =  D->quant  x  D->uprice 
totval  =  totval  +  value 
totcnt  =  totcnt  +  D->quant 
3  marker+5,1  SAY  counter  picture  "###" 
3  marker+5,6  SAY  D->descrip 
3  marker+5,45  SAY  D->reqno 
3  marker+5,58  SAY  D->pono 

3  marker+5,69  SAY  D->quant  picture  "####«" 
if  marker  >  14  .and.  .not.  prtout 
marker  =  1 
wait  Smsg 
3  6,0  clear 
endif 
endif 
skip 
enddo 
select  C 
skip 
enddo 

3  10,21  SAY  "ALL  ITEMS  ARE  MARKED  AS  RECEIVED" 
else 

3  marker+8,15  SAY  "Total  items:" 
3  marker+8,28  SAY  totcnt  picture  "######" 
3  marker+8,45  SAY  "Total  value:  $" 
3  marker+8,59  SAY  totval  picture  "#,###,###.##" 
endif 
endif 
if  prtout 

3  marker+8,70  SAY  chr(12) 
set  device  to  screen 
else 

wait  Swmsg 
endif 
endcase 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

X  Module  Name:   STK_ORDR.PRG  X 

X  X 

X  Author:  Tom  Trotter  x 

X  X 

x  Purpose:   This  module  offers  the  user  a  menu  option  of  ordering  a          x 

x            standard  stock  item  from  either  NPS  RSS,  NSC  Oakland,  or  X 

x            GSA .   It  subsequently  invokes  various  modules  to  gather  X 

x            the  data  required  for  the  order.  X 

X  X 

X  This  module  is  called  by:   MAIN.PRG  X 

X  X 

X  This  module  calls:    GET_RDD.PRG  x 

X                       GET_PRI.PRG  x 

x                       GET_CAT.PRG  X 

x                      BUY1_ITM.PRG  x 

x                      PRT1348a.PRG  x 

x                      FILE_ITM.PRG  x 

x                      FILE_REQ.PRG  x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

choice  =  4 

clear 

set  scoreboard  on 

3  4,25  SAY  "STANDARD  STOCK  REQUISITION" 

3  6,14  SAY  "This  program  prepares  a  requisition  for  either  a" 

3  7,14  SAY  "GSA  or  DOD  standard  stock  item.   If  you  want  to" 

3  8,14  SAY  "order  forms  or  publications,  return  to  the  previous" 

3  9,14  SAY  "menu." 

3  12,21  SAY  " " 

3  13,21  SAY  "[   1.   NPS  RSS  Order  ]" 

3  14,21  SAY  "C   2.   NSC  Oakland  Order         ]" 
3  15,21  SAY  "C   3.   GSA  Order  ]" 

3  16,21  SAY  "[   4.   Return  to  previous  menu   ]" 

3  17,21  SAY  " " 

3  18,29  SAY  "Select:" 

3  18,38  GET  choice  picture  "f"  range  1,4 

read 

set  scoreboard  off 

public  supno, sendto, route 

do  case 

case  choice  =  1 

sendto  =  '203J  Ready  Supply  Stores* 

route  =  'Z9S' 

supno  =  '0000* 
case  choice  =  1 

sendto  =  '(00228)  NSC  Oakland,  CA* 

route  =  'NOZ' 

supno  =  '1111' 
case  choice  =  2 

sendto  =  'GSA' 

route  =  'GSA' 

supno  =  '2222' 
case  choice  =  3 

return 
endcase 
do  get_rdd 
do  get_pri 
do  get_cat 
do  buyl_itm 

public  docid, signal , fund 
docid  =  'A0A' 
signal  =  'D' 
fund  =  "2S" 
do  prtl348a 
do  file_req 
do  file_itm 
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return    to   master 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

x  Module  Name:    SUP_MEM0                                                x 

x  x 

x  Author:  Tom  Trotter                                                    x 

x  x 

X  Purpose:   This  module  is  conditionally  invoked  if  the  total  value  of       X 

x  an  order  exceeds  $999.99.   It  uses  SEL_SUPL.PRG  to  specify      x 

X  suppliers  to  include  in  a  supplemental  memo  prepared  to         X 

X  accompany  the  requisition.   Three  suppliers  and  2  dept          X 

X  points  of  contact  (POC's)  must  be  specified.   After  the         X 

X  required  data  is  collected,  it  invokes  PRNT_SM0 . PRG  to          X 

X  print  the  actual  memo.                                          x 

X  x 

X  This  module  is  called  by:    0PN_0RDR.PRG                                  X 

X  X 

X  This  module  calls:    PRNT_SM0 . PRG                                         X 

x  SEL_SUPL.PRG                                       x 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

clear 

3  4,24  SAY  "ADDITIONAL  SUPPLY  SOURCES  MEMO" 

3  5,24  SAY  " " 

3  7,12  SAY  "Since  the  total  value  of  this  order  exceeds  $1,000.00," 

3  8,12  SAY  "a  memo,  citing  2  additional  supply  sources,  must" 

3  9,12  SAY  "accompany  the  requisition.   Two  points  of  contact" 

3  10,12  SAY  "knowledgeable  about  the  request  requirements  should  also" 

3  11,12  SAY  "shown  on  the  memo." 

3  14,26  SAY  "Press  any  key  to  continue..." 

wait  '* 

clear 

select  B 

3  3,11  SAY  "This  requisition  shown  the  following  company  as  the" 

3  4,11  SAY  "primary  supplier." 

3  7,20  SAY  sname 

3  7,47  SAY  areacode 

3  7,57  SAY  fone 

3  8,20  SAY  addr 

3  9,20  SAY  city 

3  9,45  SAY  state 

3  9,52  SAY  zip 

public  sname 1 ,areacodel ,fonel,addrl,cityl ,statel , zipl 

snamel  =  B->sname 

areacodel    =    B->areacode 

fonel  =  B->fone 

addrl  =  B->addr 

cityl  =  B->city 

statel  =  B->state 

zipl  =  B->zip 

3  13,11  SAY  "You  will  now  be  requested  to  identify  2  additional" 

3  14,11  SAY  "suppliers." 

3  16,21  SAY  "Press  any  key  to  continue..." 

wait  " 

do  sel_supl 

public  sname2,areacode2, fone2,addr2, city2, state2,  zip2 

sname2  =  B->sname 

areacode2  =  B->areacode 

fone2  =  B->fone 

addr2  =  B->addr 

city2  =  B->city 

state2  =  B->state 

zip2    =    B->zip 

clear 

3  12,19  SAY  "Time  to  select  one  more  supplier." 

3  16,21  SAY  "Press  any  key  to  continue..." 

wait  • • 

do  sel_supl 

public  sname3,areacode3,fone3,addr3, city3,state3, zip3 
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sname3  =  B->sname 

areacode3  =  B->areacode 

fone3  =  B->fone 

addr3  =  B->addr 

city3  =  B->city 

state3  =  B->state 

zip3  =  B->zip 

clear 

ans  =  ■  ■ 

public  pocl , extl , poc2 , ext2 

pocl  =  '  * 

poc2  =  '  ' 

extl  =  •     » 

ext2  =  ■     ' 

do  while  upper(ans)  <>  'Y* 

3  5,28  SAY  "ENTER  POINTS  OF  CONTACT" 

3  6,28  SAY  " " 

3  9,18  SAY  "Name:" 

3  9,25  GET  pocl 

3  9,48  SAY  "Ext:" 

3  9,54  GET  extl 

3  11,18  SAY  "Name:" 

3  11,25  GET  poc2 

3  11,48  SAY  "Ext:" 

3  11,54  GET  ext2 

3  14,30  SAY  "Correct  (Y/N)?" 

a  14,46  GET  ans 

read 
enddo 
do   warn_prt 

3  10,31  SAY  "LOAD  PRINTER" 

3  12  37  SAY  "8" 

3  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 

set  device  to  print 

3  1,1  SAY  ■  ■ 

wait  ■■ 

do  prnt_smo 

return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X  X 

x  Module  Name:    WARNING. PRG                                                X 

X  X 

x  Author:  Tom  Trotter                                                      x 

x  x 

x  Purpose:   This  module  is  used  by  BUY2_ITM.PRG  to  display  a  screen          x 

x  warning  that  no  item  was  entered  and  the  order  process          x 

x  is  about  to  be  terminated.                                      X 

x  X 

x  This  module  is  called  by:    BUY2_ITM.PRG                                x 

x  x 

X  This  module  calls:   N  /  A                                                 X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  =  *  * 
do  while  .T. 
clear 
3  6,31  SAY  "WARNING  !!" 

3  7,31  SAY  " " 

3  9,14  SAY  "Since  no  item  was  entered   it  is  assumed  that" 
3  10,14  SAY  "you  desire  to  abort  the  entire  order  process!" 
3  12,22  SAY  "Do  you  want  to  abort  (Y/N)?" 
3  12,51  GET  ans 
read 

if  upper(ans)  =  'Y' 

return  to  master 
else 

goahead  =  .F. 
return 
endif 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 

X  Module  Name:   WARN_PRT.PRG  x 

x  x 

x  Author:  Tom  Trotter  x 

X  x 

X  Purpose:   This  module  displays  a  warning  before  any  output  is  directed     x 

X            to  the  printer.   The  user  is  advised  to  prepare  the  printer  x 

X            or  face  the  consequences.  X 

x  x 

X  This  module  is  called  by:   DIS1_REQ.PRG  X 

x                            DIS2_REQ.PRG  x 

x                            DIS3_REQ.PRG  x 

X                             PRT1348a.PRG  X 

X                             PRT13<48o.PRG  x 

X                             PRT1348x.PRG  X 

X                              PRTSF36.PRG  X 

x                             SHW_NRI.PRG  x 

x                             SUP_MEMO.PRG  X 

x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do  while  .T. 
ans  =  '  ' 
clear 
3  5,30  SAY  "PREPARE  PRINTER" 

3  6,30  SAY  " " 

3  8,13  SAY  "Since  output  will  now  be  sent  to  the" 

3  9,13  SAY  "printer,  it  should  be  connected  and  have  the  power" 

3  10,13  SAY  "turned  on  now." 

3  12,13  SAY  "WARNING  -  Failure  to  prepare  the  printer  may  cause" 

3  13,23  SAY  "the  computer  to  hang  and  possibly  result" 

3  14,23  SAY  "in  loss  of  data."- 

3  17,29  SAY  "Continue  (Y/N)?" 

3  17,46  GET  ans 

read 

if  upper(ans)  =  'N' 

return  to  master 
endif 
if  upper(ans)  =  'Y* 

return 
else 

return 
endif 
enddo 
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XXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX**XXXXXXXX 

X  X 

X  Module  Name:   WELCOME. PRG                                                X 

X  X 

x  Author:  Tom  Trotter                                                      X 

X  X 

X  Purpose:   This  module  displays  the  intital  welcome  banner  and             X 

x  describes  the  current  disk  configuration                        X 

x  x 

X  This  module  is  called  by:    MAIN. PRG                                      x 

X  X 

X  This  module  calls:    N  /  A                                                x 

x  x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

clear 

3  3,16  SAY  "WELCOME  TO  THE  NPS  SUPPLY  REQUISITION  DATABASE" 

3  6,8  SAY  "This  program  is  designed  to  originate  requisition  documents" 

3  7,8  SAY  "(DD-1348s  and  SF-36s),  as  well  as  maintain  a  database  of" 

3  8,8  SAY  "requisition  status  for  a  particular  department.  The  system" 

3  9,8  SAY  "is  designed  for  use  by  any  personnel  who  are  familiar  with" 

3  10,8  SAY  "Naval  Supply  terminology,  however,  a  detailed  understanding" 

3  11,8  SAY  "of  the  decision  matrix  used  in  the  generation  of  requisition" 

3  12,8  SAY  "documents  is  unnecessary." 

3  16,8  SAY  "WARNING  -   If  the  user  fails  to  adhere  to  any  warnings" 

3  16,63  SAY  "presented" 

3  17,19  SAY  "by  the  program,   he  does  so  at  the  risk  of  data  loss." 

3  19,19  SAY  "Disks  should  NEVER  be  removed  from  the  drives  until" 

3  20,19  SAY  "the  program  has  been  exited." 

7 

\ 

wait  *  Press  a  key  to  continue...' 

restore  from  config.var 

clear 

3  4,30  SAY  "LOAD  DISK  DRIVES" 

3  5  30  SAY  " " 

3  7' 27  SAY  "Database  Disk  Location" 
if  c_sdrv  =  c_adrv 

3  10,20  SAY  "Accounts/Supplier  Disk:   °  ■  Drive" 

3  10,46  SAY  c_adrv 
else 

3  9,27  SAY  "Suppliers:    °  '  Drive" 

3  9,41  SAY  c_sdrv 

3  11,27  SAY  "Accounts:     °  '  Drive" 

3  11,41  SAY  c_adrv 
endif 

3  16,9  SAY  "Ensure  that  the  disk  drives  are  properly  loaded  before" 
3  16,64  SAY  "proceeding!" 
? 
? 

wait  ■  Press  a  key  to  continue...' 

return 
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